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RESULTINGFROMSPECIALFORMS 
OPERATOR MESSAGES ANO RESPONSES 
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. THE—FORMS.W43RO—TO . SAY.THAT . THE . NEXT . FTLE . SHOULD . 
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CALL WAS QUEUED OR TO THE ADDRESS IN X3 PLUS ONE 
IF-THE CALL WAS COMPLEX EC* OK THE CALL 3 
X3 HILL HAVE THE NEW RETURN ADDRESS IN 
RETURN THE A REGISTER WILL HAVE ONE OF 
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00031 
...00 032. 

21IQ 0 Q 16 

2700 0015 
.03000035 

X 

_p._.. 


..2 5'6 

25 7 

..25 8-— 


.LDQ.. 

LOL 

A 7 I. CQ. 

00033 

00034 

34 100016 
01300000 



259 

260 


Hi,.WfEVH. 

RAD 

UJP 

.0 0 0.35. 

0 0 0 35 
53300000 

p 


“ f®±~ 
262 
263 

UR8L0KIZ 

EQU 

TIA 

0 0 0 36 

0 0037 
...J0Q40. 

4410 0 0 21 
5310 0000 
53700000 



26 4 

2 65 

.. 


"sww - .. 

TIA 

_TA-I_— 

00041 

00042 

14 70 0 0 00 
14600044 

p 

p 


267 

268 


ENQ 

ENA 

UJU43 

00044 

00045 

1)10/7 (i i 
40300002 
C32Q0003 

x. 

p 


w O T 

270 

271 


UJP ~ 
STA 

AZJ,GE 

.0 00W : 

“"0T3F0T20. 



Z7 - 2 — 


U3F “ 


UNBLOCKING ROUTINE 


START.CF FURE CODE.REGION.04 


8 F3G N * X3 

“X*2——— 

UR3EXIT,X3 

¥■ 

HUNT.. 

3FCPP , X3 

URBLOKA- 

CALLFINK 

,„ A . t . 2ywrT ___ 

ENIT,XI 
UR3L0KIX 
FORMSWRDjXI 
8IT19 

FORMS WRDjX.l 
8 IT 2 2 
* +3 
1 

SCREAM 
X 3 

"yg .”' 

I DENT,XI 

.RDYMESID . 

ROYMESS 

RDYMESL 

-OPMSG— 


SAVE QUARTER PAGE ADDRESS 
SAVE THE RETURN ADDRESS 


ENTERWORD COUNT OFHEADER 
AND SAVE IN CONTROL BLOCK 
ENTER.RETURN.ADDRESS- 


SHOULD THE OPERATOR 8E WARNED 
ABO UT. TH I S . DEVICE 

REMEMBER ABOUT ASKING TO BE 

STARTED.—------ 

IF 8IT22 IS SET THE NOISE MAKER 
IS ALL READY ON FOR THIS DEVICE 
SO QONYT INCREMENT SCREAM——-- 

PUT . THE RETURN . ADDRESS...INTO. X2 

LOAD THE DEVICE ID 

ENTER.THE.MESSAGE ADDRESS. 

AMD LENGTH 


.FORHSWRCjXr 

BIT22 

URBL OKI-Z . 

F ORMSWRO,XI 
3 ,X3 

■v- 

X 3 

.URSEXIT,~Xl. 

XI 

Y ■? 

I ADR 

"G-ETEU-PF— 
8F3GN»X3 
IMDR 

U'RBOTTATXS 


DUES.FHE.UNIT .HAVE FORMS.IN.IT 


CLEAR SIT 22 AND SET BIT 23 
WAIT FOR REMOVAL OF FORMS 


SITE ' THE RETURN .A”0 DRESS . 

GET POINTER TO AN INDEX 

THAT.IS.SAVED.AN D.R £STORED 

ENTER INTERRUPT ADDRESS 
ENTER RETURN ADDRESS 

CALL TO.GET. 'BUFFER 

SAVE THE QUARTER PAGE ADDRESS 
JUMP IF WE GOT A SUFFER 
“WATT .FOR W B U PEER...... 
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.00047. 

0 0050 
00051 

00052 

00053 

00054 

00055 

Tf0056> . 

00057 

0006 0. 

00061 
00062 
00063 
00064 
00065 
00066 
00067 
00070 
0 0071 
00072 
0007 3 
0 0074 
00075 
0 0076 


77 730000. 

53300000 

4410 0 0 21. - 

00052 P 
2 0 10 0 012 
12 00 0 0 0 2 
03300320 P 
77650001 

.44100016. 

20100002 

.77 64 0 0 01. 

14300063 P 
01000376 P 
20077777 X 
03400227 P 
05500001 
01000233 P 
27077777 X 

-40 100 - 015 —. 

17777777 
41100014 
2010 0Q06-— 
05700013 
01000104 P 
TF3F0T!T3¥.P 


0 0 0 77.O'O' q- or o x a e" 


00100 
0Q101 
0 0102 
00103 


.0.0.10 4- 
00105 
00106 
-00107 
0 0110 
0 0111 
00112 
00113 
00114 
00115 
00116 
00117' 
00120 
00121 
0 012 2 
00123 
0 0124 
00125 


.27 4. 

27 5 

-2-7-6 .—. 

276+001 

276+002 

276+003 

276+004 

276+005 

278. 

27 9 

.280. 

281 

282 

283 

284 

285 

266.“ 

287 

288 -- 

289 

290 

'29!— 

292 

293 

7W. 

295 


HOVE BU FF 

US8L0K.VFD 

TIA 

.-.—.SWA 

URBLQKA EQU 


UNBLOCKING ROUTINE 


LD A 
SH A 

A2J,LT 
PFA 
“SWA 
LOA 

APF- 

ENI 

UJP 

LQ'A— 

AQJ,EQ 

QSG,S 

UJP 

LDL 

- STA. 

ANQ 

STQ 

LOA 

QSG 

UJP 

.AQ:J,"GE" 


A 12/DINT 
X 3 

UR3EX IT, XI 
* 

ENIT,XI 

.2 3-21 — 

STOP IT 
PFLOC+PFR 
PFWORO,XI 
BFBG N,XI 
PFLOC+PFW 
+ +2,X 3 
GETWORD 

FILEM 

1 

.TERMF 

BIT 18 

.P-O S I ,-X I-- 

777778 
COUNT,XI 

LNIM,XI. 

FORHREC+1 
CHECFORM 
.PEST.. 


SAVE.THE.RETURNACDRESS 

SEE IF PHANTOM SEZ STOP 
-Sf>0-p~-8*rt~T-e-*P GST .. 

JUMP TC STOP MACRO 
SAVE PF .1___ 

LOAD QUARTER PAGE NUMBER 


GET A WORD FRCM THE FILE BLOCK 
CHECK FOR FILE HARK — 

JUMP IF FILE HARK 

HOPEFULLY.END.OF.DATA. 

ONLY WANT BINARY BIT 

SET INITIA L P C SIT IO N TO Z ER 0 

MASK TO WORD COUNT 
SAVE COUNT 

LOADALLOWEDCOUNTFORDEVICE 
SKIP IF IT CANFT 3E FORMS 


JUMP IF .NO.ERROR' 


* ¥ * * ¥¥ ¥¥¥¥¥•¥¥¥*¥¥¥¥¥¥¥¥ ¥¥¥¥ ¥ - 


297 

29-8 

ll . w „ r% .*4 0 

¥ 

¥ 

„ , it.*,... 

C J ii 

300 

. . 

¥ 

301 

¥ 

.3¥Z“".. 

..*F' : . 

303 

¥ 

.. 30 A.. 

_ » 

30 5 

■ ¥ ■ 

jn p. 

¥ 

30? 

¥ 


¥ 


IF THE FOLLOWING CODE IS EXECUTED SOMETHING IS BADLY 
TtAt FUN gf x-’O N TN G"i ““'P R O BA 8 t‘ E " IT £ M S TO "CHECK' ARE "THE "DISKS 
(HARDWARE OR SOFTWARE) OR SYSTEM TIMING. 


3 Q 9+0 0: 


THIS CODE.HAS".NOT.“SEEN EXECUTED.SINCE.EARLY" VERSION 3.0.*“ 

HOWEVER IT IS LEFT HERE FOR OLD TIMES SAKE. THE HLT *+l * 

-: .IS.-ASSEMS.LE-D--I-N--BE-GAU.se WE- (GSU) HAVE- LITTLE BISK -T ROUBLE-— — * 

HOWEVER IF DISK TROUBLE BECOMES A REAL PROBLEM THE HALT * 

SHOULD BE DELETED. IF IT IS THE SYSTEM WILL RECOVER FROM * 

-• .8A0 READS 'MITQMATICLY'...(QlVTttF¥2i-“— * 

♦ 

. ¥-¥¥■¥ -¥«■ ¥¥¥ ¥¥■¥¥¥*¥¥ ¥* *¥¥¥¥■¥■¥¥■¥-¥¥¥¥¥ ¥•¥¥¥¥¥¥¥¥¥¥¥¥¥•*¥¥¥¥¥. 

w .. H tl'T “*“+T “ ."TR“'A'P“'“"F“0“R'HAD CLTFUT FILF..'. 


.Q...Q.1.Q.Q... 

.R. 


310 

. 31.1 ...S YNC. 

11002270 

14700027 

p 

00456 0 

313 .. 

314 

"X4"2 00 74-4' 
01000027 

r ' 
X ' 


w* X 

316 

317 

0 0134 
.2-0.fl.um51 

p 

, X. 


.318' .. . 

218+001 CHECFORM 
.31 £+0 02 ... 

3710 0 012 
3510 0 015 



318+00 3 

318+004 

U d 1 u t! 1 6 e 
14300112 
01000376 

o 

ir 

p 


.“ 

31 0 0 6 

32 O' 

20 0 7 77 77 “ 
03500140 
-2 0 10 0-0 07 . 

"“X. 

p 


3 21 

322 

... 32 3...-__- 

0 5 60 0 Q 01 
0100 0 140 

p 


324 

32 5 

1 ^ X -1. A A A 

1 *f Oil U 11 Do 
44100015 
20100016 



32 7 

328 

1767 7 777" 
35077777 
4.0-10.0 016 . 

X 


3'2"g.-... ~ 

330 

3^1 

01 00 0 140 

.p. 


33 2 


-EQU— 

ECHA 

ENQ 

-ENI— 

UJP 


EQU 
-LOJL 
LP A 
SSA 
“‘A'ZJ; 
ENI 
UJP 

.LUX 

AGJ; 
--L-DA- 
ASG 
UJP 
- EN A" 
SWA 
LOA 
""ANA 
SSA 
-SXA- 
UJP 


SYNCH 

SYNCL 

TERMFX, 

OPMSG 


-BII22___ 

ENIT,XI 
POST, XI 
PLST 
* +2,X3 
GETWORD 
T'ORWFLfiG " 
NOTFR 

-K-I-L-LF.LA-G-,-X-i 

1 

NOTFR 

.„. ...... 

POST, XI. 

F ORMSWRO,XI 

777778. 

8IT2 0 

.E-ORMS-WRO-j-Xl 

NOTFR 


OUTPU T -FI LE - S-Y-NC.ERRO R...—.----- 

ENTER ADDRESS OF MESSAGE 
ENTER COUNT FOR MESSAGE 
ENTER- RETURN ADDRESS 
PRINT ^OUTPUT FILE SYNC ERROR* 


GET NON-FORKS ABLE DEVICE BIT 
AND BINARY RECORD BIT 
JUMP IF NOT TC CO FORMS 


IS.XT.THE.FLAG.WORD 

JUMP IF NOT 

-HAS.THE.DEVICE.BEEN.K-I-LL-E-D-- 

SKIP IF NOT 


SET THE WAITING ON FORMS BIT 
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MOVE BUFF 



UNBLOCKING ROUTINE 


POSI,XI 
“rK/VOTXl“~-~“ 
X 2 

.- ijX 2.. 

*+2 ,X3 
GETWORD 

»- __ _ 

COUNT,XI 
IXTST 

"'POST'TXI*-— 

24 

.FORMSWROV'Xl’ 

2 3-2 0 

.NQTFQRMS- 

-6 

SYNC 

PFWtrRtrrxi 

PFLOC+PFW 

1 

SCREAM. 

1 MAD,XI 

X 2 

OEVBLKjXl 
X 3 

“SIT—‘ 

3 ,X3 
*+2,X3 

.ROBCONV 

3 ,X2 

D EV-3L K,X1- 

X3 
0 ,X3 

~ 6 —— 

7 78 

JLs XI____ 

9 

9 

--— 

NUMCONV 
5 , X2 
“PORM 
0, X2 
BLANKSS 
'TUWTyXT ~ 
12 

^ X 5 . 

POST ,'X1 
X 2 

-—— 

777778 
Q ,X2 

"DR3EXXT,X'r. 

V O' 

~IMAQ,Xl. 

2 
1 

QPMSG 


COUNT DOWNCOUNTER 
SAVE CGUNTER 

LOAD CURRENT FGSITION---- 

SAVE BACK COUNTED UP VERSION 
ADD-ON THE BUFFER ADDRESS 
PLACE ADDRESS INTO INDEX TWO 
STORE GALA.WORD.INTO.BUFFER. 

GET WORO FROM FILE BLOCK 

GET CCUNT CF WORDS TO MOV£ 

GO ON IF NOT ZERO 

ARETHE LEADING AND TRAILING 

WORD COUNTS THE SAME 

SAVE DIFFERENCE IN Q, 

SHOULD.WE.SCREAM.ABOUT FORMS 


SKIP IF WORD COUNTS. ARE OK 

LEADING AND TRAILING WORD COUNTS 

DONOT MATCH 

RESTORE THE PAGE FILE 

MAKE TH E CONS OLE.CRY... 

LOAD THE ADDRESS OF THE RECORD 


GET POINTER TO JOB NUMBER 
PUT IN USEFUL PLACE 
"AN D- 0 FF~ AS GRTA'ND~F 0RM’S" ' BI TS - 
GET JOB NUMBER 
RETURN 

CGWERT.LO^DEUTMAX. 

SAVE IN MESSAGE 

POINTER TO.NUMBER.OF.RECORDS 


GET UPPER 6 BITS OF RECORD COUNT 
AND OFF 

Ji£,T ..N EXT .9.BI T S. OF RE CQRO COUN T 


RETURN.. 

CONVERT TO DECIMAL 
SAVE IN MESSAGE 

MOV E™ T ST A N 0 A RO "SL U F F TNT 0 THE 

MESSAGE 

GENERATE THE IDENT INTO THE 

'HE’S S'A G,£ ' ' ' ' .” 


POINT 1C THE' END OF THE RECORD 

COUNT 10 a——— — — - —— - — 

STORE A RETURN AT THE ENO OF THE 
MESSAGE 

“SET.THE.RETURN.ADDRESS “. 


-LO AD.THE.F I RST.WO RD--A DDR ESS- 

CONVERT TO CHARACTERS 


POSI, XI 

C OUN I, XI. 

0 

SYNC 
- * 

KILLFLAGjXl 

0 

.FILEX 

KILLIT 


LOAD CURRENT POSITION 

SET.COUNT.BACK.INTO.WORD.. 

SKIP IF WORD COUNTS ARE OK 


LOAD KILL REQUEST FLAG 
SKIP IF TIME TO QUIT 
JUMP.ON IFNOT 


BLF, X1 
777773 


IS THIS THE. LAST BLOCK 

EOD WORD MUST BE +0 










































CD 
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MOVE BUFF 


"0 023 5 
00236 
.fln?37 

0440 oooo 
00 00 0 1 0 0 
? n i non i 3 

P 


401 

402 

.4 o ■?+n n i.. 

ASE,S 

HLT 

.K I L L XT.i n a. 

0 ' 

00240 

00241 

5 3 70 0 0 GO 
25300001 



402+002 

402+003 

TAI 

LDAQ 

Q 

0 0242 
00243 

17 77 7777 

0 0 77 7 777 
00244 

X 

P 


402+004 

402+005 

403 

AN J 

RTJ 

TERMFX EQU 


0 0244 
00245 

0 0246 

2 0 10 0 013 
17677777 
14300002 



4 0 3 + 001 
402+002 
.40 3+0 03. 

LC A 

ANA 

. .......F..M.T. 

Q 

00247 

00250 

00 777777 
14600000 

X 


403+004 

403+005 

RTJ 

ENA 

O 

0 0 251 
00252 

0 U 25 3 

40100013 
1460 0000 
40100000 



.40 3+ 0 0 6. 

40 4. 

405 

.ST A. 

ENA 

STA 


.00254. 

00255 

0 0256 

.14 47 7 776. 

34077777 

6 310 n o n n 

X 


405 

40 7 

40 s. 

ENft»S 
RAD 

....XT. A.. 

o 

00257 

00260 

53700000 

15600007 



40 9 

410 

TAI 

INA 

o 

0 0 261 

0 0262 
00263 

4410 0y0 7 
15300310 
14600267 

p 


... 

4 i <L 

413 

.........“Sw« .. 

INI 

ENA 


.0 026 4 

00265 

0 0766 

.wirnnrrr 

20100002 

01077777 

X 


. .4T4... 

415 

41 S 

.*. - .swi. 

LD A 

. Ujp , 

o 

00267 

0 0267 
2110 0 0 16 

p 


91 ? 

41 8 

FILEXA EQU 

LDQ 

o 

U 027U • 

00271 

00272 

*~2 7 0*7~7t7Y~' 
03000303 
34100016 

- x. 

p 


4 ^ 

420 

421 

S-.DL 

A2J,EQ 

RAO 


."0 0273" 

0 027 4 

0 0275 

.2 0 10 G O 17' 

40001476 
146U 0 0 01 

p 


. 9X2 . 

423 

_42-4-.. 

CD'S 

3 r A 

.E-N-A. 

O . 

00276 

00277 

_ _ w _ n n "7 n n. 

34000155 

14700021 

X . 

.JPV..,. 


42 5 

426 

RAD 

ENQ 

o „ 

0U30Q 

0 0301 
. 00302 

1x80b354 
14200303 
0100 G 222 

p 

p 

. X . 

' 0 1m7 3 u 

4 d a 
.42 8 

42 S 

Eon A 
ENI 

____ UJP. _ 



Q 0 30 3 

. p 


. Tfsxr~- . — . 

4 -O 1 

43? 

OGN TSTOP.EQU—.- 

o 

. 0 0 303 . 

14577777 

00304 

p 


..---..... 

433 

434 

ENQ, j S 

FILEX EQU 

o I 

' 00304 

0 0 305 
00306 

2 0 10 0 0 io 
77640001 
20 10 0 Q 21 



—435*~—— 

43 6 

437 

— .."tQ-ft ■ 

APF 

LDA 


-.0 0307. 

00310 

0 0311 

.5T7innnnr 

13 00 0 Q30 
2110 0 0 04 



■433 

43 9 

440 

TS X ■ 
SHAQ 

_ _xo.a. 

o o 

0 0312 
00313 

.00314- 

00315 

00316 

0550 0000 
Q1000315 
-0X30 oa at-- 
17777777 
4110 00 04 

D 


441 

442 

.44-3 ..~ 

444 

445 . 

QSG»S 

UJP 

--WP— 

ANQ 

STQ 


“.'.0 0317. 

. 0150 0 0 0 4 



94’ 6 

. TJ3P7T 

O'" 

o 

00320 

00321 

00322 

0 0 o 2 0 
'24000270 
3410 0012 

20000063 

p 

X 

X 


446+002 
'-446+30 3 
946+004 
446+005 

STOPIT EQU 

LCA 

RAD 

LDA 

9 — 

~~..0 0323 . 

00324 

.0.0.32.5.. 

""35T0‘O 0 "0''4 . 

40100004 

. oi.ia.o. 0.21 . 



.C AF 6 + 0 0 6’ 

446+007 
_ _ 9.9..6.+..0..0....8. _ 

.~ .~~. . ... SSA 

STA 

__U.J.E^_ 


G 8 


o £ 

o s 

Q 


O 


UNBLOCKING ROUTINE 


o. 

SYNC 

DEV3LK, XI— 

X 3 
1,X3 

'7 7777 B ' ' 

F REEFILE 
* 

d evblKj xi 

7 777 7 B 

.2 > X 3- 

FREEMEN 

0 

OEVBLKtXI.“ 

0 

FB,X1_ 

I08USY 

XI --- 

X 3 

£ NAD~1 
ENAO-lfXt 
ENAO j X3 
FILEXA 
lOHTXT”. 

8 F8G N > XI 

GIVBUFFA. 

* 

FORMSWRO,XI 

0 ONISTOP 
FQRMSWRQ,Xi 

TDENT7XI.'. 

£NOIDENT 

-4.-.-...— 

SCREAM 

17 

'E-NDME-5S 
DQNTSTOP* X2 
OPHSG 


.MUST BE THE.CAST.BLOCK 

GET.POINTER-.TC G.BLOCK 

A=LF Q=TFL 

KEEP ONLY TFL— 

GET RID OF FILE 

PTR.TO.A.WORD BLOCK. 

JUST IN CASE 

-.SAY.4.WORD.BLOCK.—.-.-.-. 

FREE MEMORY 

CLEARMACRO 

SAY THAT THIS DEVICE IS NO 
LONGER DOING ANYTHING 
ONE LESS OUTPUTFILE 

.CONTROL.BLOCK.ADDRESS.TO.X3 -. 

RESTORE THE KILL REQUEST FLAG 

POINT TO THE RETURN ADDRESS 
SET THE ADDRESS INTO THE CONTROL 

.BLOCK.. 

LOAD FILE CORE BLOCK ADDRESS 
.GIVE.Q U A RIER.PA GE.8 AC K.-. : .. 

DOES THE DEVICE HAVE FORMS IN IT 


JUMP IF NOT 

SET THE 7TAKE OUT FORMS* BIT 
SET.THE".I'D ENT.I NIC TH E.MES S AGE' 


NUMBER OF CHARACTERS 


*• 


-0 SAY END OF DATA 

* 

•ffWIW .RESTORE.PAGE. FILE-.WORS~ 

PFLQC+PFW 

URBEXIT ? XI LOAD THE RETURN ADDRESS 

' x 3 ...■....;. 

-C.ALaAK-»X4___IS—XHXS—A N.INT-E-RS-UPI.RETURN- 

G 

*+2 

-4rX-3...T#MB3TAT£ RETURN-—- 

777778 CLEAR THE SIGN BIT 

CAL8AK, Xi 

"''CALB’AK'jXI.. .XAXL'^R'O'UTT'NE .BACK.. — '.... 


* ROUTINE TO STOP MACRO FOR PHANTOM 

-——-€E'T--Sf 0 P E1T 

EMIT * XI REMOVE STOP BIT 

8IT23 SET THE CAL8ACK FLAG 

C AL B A K».X I .. " . ." - .“' 

CAL3AK,X1 

.URBEXIT»-X1.....RETURN_________.-. 
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HOVEBUFF 

UNBLOCKING 



00326 

P 

446+010 
446+011 
..4 4 fi + n 1 7 . 

NUMCONV 

r 

EQU 


® ' 




446+013 

446+014 

if. 



CD . 




446+015 

446+016 

446+017 

■y*'.■ w 

* 




0 0326 
..0 032 7 

14700060 
.12-4 0 0 0 2? 


446+018 
446+019 
.446+020 


ENQ 
§HQ. 

608 

...18. 

O 

0 0 330 

0 0 331 

45200000 

14700000 


446+021 

446+022 


STAQ 

ENQ 

0 ,X2 

0 

o 

L) 0 3 3^ 

0 0333 

0 0334 

41200002 
21200000 

14 60 0 0 D 0 


4'4 6 + 0 2 3. 

446+024 
.446+025. 

NUMCV02 

STQ 

LQQ 

ENA 

-~2tX2"- 

0 ,X2 

0 


.0 0 335. 

0 0336 

.;.n.fl.177. 

..51077777 

4020 0000 

1 4 n o 6 n 

X 

4 4 6+02 6 
446+027 

..iL.£L.S 1 ..4i:....0..,!2..S.. 


OVA 

STA 

.CM ft_ 

010 

0 »X2 

o 

U U uu i 

00340 

00341 

j. u u uu y 

32200001 

13000052 


*r <r u * u d <3 

446+029 

446+030 


Juilx M 

AOAQ 

SHAQ 

.l7x2. 

4 8-6 

o. 

0 0 342 
00343 
00344 

.*45 2 0 00 01 

17700077 

0 4 70 0 060 


™44'6+0 31 
446+032 
_ 44 6+0 3 3 


S1AQ 

ANQ 

QSE 

_— —*t'-yX2~~'” 

7 73 

SOB 


. 00 345. 

00346 

—.—.0 0 347. 

'TlWOTIB. 

21200002 
.ill 30-0-0-00 . 

P 

446+ 0 3 4 
446+035 
- .446+0-36 . 

.U JPX3 - 

.0JP 

LDQ 

. UUP- — 

RUMCV02 

2,X2 

.. 0-,-XI - - 


ROUTINETOCONVERTBINARYTODEC 
ENTER WITH: 

A= NUMBER.TO.BE-.CONVERTED----------.... 

X2=P0INT£R TO 3 WORDS OF TEMP 0 

X3=RETURN ADDRESS 

RETRUNS WITH 7 DIGIT'S IN ACT“— ~-r— ** 

FOLLOWED BY BLANK _ 

_____...__:........_...qO 


PRESET—. 

THE TEMPS 


GET REMAINDER OF NUMBER 


SAVE QUOTIENT 


ADD TO PREVIOUS NUMBER 
GOTO NEXT POSITION 

S AVE A G AI N*.. 

KEEP LAST CHAR 

SKIP IF DONE 

CONTINUE.'.. 


'.O 

s Q 

J o 

:.) i 

i.O 

z i 

O 


RETURN 








































UNBLOCKING RGUTINE 


QIT20 GET N0K3UFFER UNSAFE FLAG) 

EMIT, XI .- -AND OFF IN FLAG WORD. 

ENIT,XI ST ORE BACK 

ENIT,XI INDEX 3 

' X'3‘".—..-..—.... .... 

PFLOC + PFR SAVE PFLOC 

PFWORDjXl 

.8F3GN,XI. POINT TO THE CURRENT FILE CORE 

P FLOC + PFW BLOCK 

.D EV3LK, Xl~.~~~-GET PHANTOM CH ANGE FLAG - - — 

0 

“15 FLAG TO A--PTR TO Q 

2 4-9• ——— —.PTR.TO LC W £ R~G 

0 EV oL K,X1 RESTORE DEVBLK FLAG 

7778 

HUNT . .. SKIP.IF.PHANTOM HAS BEEN HERE* 

HLNT ENTER COUNT OF HEADER WOROS 


1 COUNT UP PICKUP POINTER 

8 FC? P,XI.- ANDSAVE .IT . 

X 2 ADDRESS TO INDEX TWO 

CORE-1,X2 LOAD WORD FRCP BLOCK 

.07X3. RETURN." . 

-EFCPP, XI....:-L0A0.CC-UNTER.FOR.PICKUP.- 

NPF6 SKIP IF END OF FILE BLOCK 

FLWD 


X3 GET INDEX THREE 

ENIT,XI SAVE INDEX THREE 

.XT.*.PUT.BLOCK.INDEX'".INTO.X3 . 

X 3 

. CORE -:-LOAD.THE.FORWARD.POINTER.-.-. 

DEVBLK,XI SEE IF PHANTOM HAS BEEN HERE 

-15 

-HtN'T— - SKIP IF PHANTOM HAS BEEN HERE 

FB»X3 SAVE AS THE CURRENT BLOCK 

PFWO RD»XI RESTORE THE PAGE FILE 

.FFU0D+FFW.'.............. 

BXT29 GET BUFFER UNSAFE FLAG 

— --—-SE-T-—I-N-T-0 WORD-, - -.-.— 

ENIT,XI STORE BACK 

FLWD A ENTER THE RETURN 


PFWORO, X3 

TXZ-“ " 

NJM, X3 

-B-LF-j-XS- 

0 

* 

-PQlX3 

8 F8G N,X3 

9 

URBEXITA7X3 ... 

FINK,X3 

£NAD.-UR.eEXIT.A.,X3- 
WPF8,XI 
READ,X2 

“PINKPT——--- 


SAVE THE RETURN ADDRESS 

SET THE ADDRESS FOR THE DISK. 

COMPLETION 

COUNT“DOWN THE NUMBER OF SLOCK 
HOWEVER CHECK TO SEE IF NOT PA 
THE END OF THE FILE 
LOAD FILE BLOCK NUMBER 
LOAD PAGE FILE ADDRESS 

COMPUTE RETURN" FROM.FINK. 

WE ARE FAKING A RTJ 

CO MP UTE.I NTERR U PT.RET URN.-.. 

WORD COUNT ' 

READ OPERATION 
e A t L ~T H £ ■ 01S K DRIVER 
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496 * ■ * 

497- -.•*-.-..RETURN.VO HERE.AFTER.MAES STORAGE TRANSFERS...**.-.*.-.-.-. *.-----.o _ 

498 * * U) 

W A- * A<- y- AF V- A* ** V * vVA^ArAMr •* •* V ^Ar A** ¥# A* # ¥ # ¥ V # •¥ # Ar # # ? -V ¥ ¥ * * ¥ ¥ V ^ # A£ * # ¥ ¥ # 


Cl . 


0 0 437 

P 


—5E*0— 

501 

502 

r kz 

EQU 





. ; ® 


0 0 437 

0 0440 
_.0 0441. 

53 30 0 00 0 
44100021 
..I? 47 7766. 



50 3 
504 

.50 5. 


.riA. 

SWA 

.S H 0. 

X 3 

U R3E X IT » X1 

.-g. . 

SAVE THE RETURN ADDRESS 

FORM 1/4 PAGF NL’MRFR 




o . 

00442 

00443 

41100002 
20 000 322 

X 


50 6 

50 7 


STQ 

LDA 

BFBGNj XI 

8IT23 

SET THE CAL6AK WORD 



G 

O : .'. 

0 U 444 

0 0 445 

0 0446 

ObluU 0 04 
40 10 0004 
21 10 0 0 07 



.9 0 8 

509 

511 


bS A. 

STA 

LDQ 

C A L □ A K $ X1 

C ALBAK»XI 

KILLFLAC-, XI 

WAS THERE AN IR DISK ERROR 



«o 


..00447. 

0 0 450 

_n. n.454._ 

~0570G¥0T. 

01000237 

1447 7 776. 

P 


.512. 

513 

.....£>..*1.fi:..... 


Q3G 

UUP 

.CW1.C... 

1 

KILL IT 

_ ^ 

SKIP IF NOT 

FORGET THE REST OF THIS FILE 

nFCRFMFMT TMF FT! F . I.FNCTH- .. 



' .... 6 

O 

o . 

U U JL 

00452 
00 45 3 
• 0 0 454" 
00455 

JL Hr i t J •? 1 xJ 

34100001 

20100016 

5 3 60 0 000" 
01200000 


_____ 

517 

518 
51'9. 

520 

521 


.. 

RAD 

LDA 

—ffrl —— 
UJP 

BLF, XI 

P FWuRDjXI 

-.X-2 

0 ,X2 

LOAD THE CALLING ADDRESS 

— 

™—______ 

o 

... O l 

._*o 


0 0 45 6 

.. 0 0 463 

46646347 

Q 0 0 27 



'522. 

523 

...§.2.4 . 

.SYNCH. 

SYNCL 

"TUDTXT 

EQU,C 

.. 3SS .:■_ 

.2 3,6 UTPUT FILE SYNC 

*-SYNCH 

0_ ___ 

ERRGRa 

SET- . -THE— -P-C . TO . A—WORD- . BOUNDARY . 




o 

0 0464 

60606260 



525 

BLANKSS 

BCD 

1 » 3 

« Wi; f. i I s ii f • ^ • I • W . S*% ¥ \ W i \ 4^' W W W I V ’W"n 4 V 1 



o 


o 


o 


o 


lj 


O 


O 


O 

O 

O 

O 


o 

q 2 

O' 

10 

o 9 







o 

o 

o 

o 


o 3 

a 

o s 

33, 

O' 


o 

o 

o 

o 


o 








































a 
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QUEUEING SECTION 





0 0 465 
00466 

0 0 467 

20000013 

35100012 
a o io o n l ? 

X 

52 7 + 001 
52 7+002 
527+003 

UR3L0KQ LDA 

SS A 

. ST A. 

3 IT19 

ENIT,XI 

.F NIT « XI. 

URBLCKC FLAG 

SET INTO FLAG WORD 

.STORE.WORD. 




Q 

00470 

0 0470 
47201457 

p 

p 

52 7+0 04 
527+005 

UR8L0KQX EQU 

STI 

u> iiX 1 y /' x 

UNLINK,X2 

SAVE RETURN ADDRESS 




Q 

0 0 47 1 
00472 

0 0 473 

53300000 

53600000 

14300002 


52 7+006 
527+007 
52 7+0 0 8 

.TTA. 

TAI 

ENI 

X3+CNBLK. 

X 2+CN3LK 

2 ,X3 

MOVE oCNTKQL bLCCK POINTER 10 A 

AMD THENCE TO X2 

GET A 4 WORD BLOCK OF MEMORY 




0 0 474 

0 0 475 

0 0 777 7 77 
20200000 

X 

52 7 + 009 
527+010 

c: o 74 . n 1 4 

RTJ 

LDA 

■V- +-S-NDTF+ + 

G ETHER 

ACCW0RD,X2+CNBLK 

GET NUMBER OF RECORDS 




o 

00476 

13077766 


527+012 

527+013 

* NUMBER 

SHAQ 

OF RECORDS HAS BEEN 

-9 

DIVIDED BY 512 ALREADY BY REQUEST 




O 

0 0 47 7 

Q 050 0 
00501 

17 60 0 0 77 
12000022 
40300000 


527+014 

527+015 

527+016 

...ANA. 

SHA 

STA 

.7 73. .... 

2 4-6 

0 ,X3 

JUSi INCASE 

MOVE TC TOP 6 BITS 

SAVE.IN 4.WORD.BLOCK... 




.. 0 0 50 2. 

0 0 50 3 

0 0504 

.20200007. 

13000011 

12 00 0 017 


52 7+017 
527+018 
. 5 ? 7 + f. 1 Q. 

- LD - ft 
SHAQ 

.■.CUi._ 

.TFL,X2+CNELK 

9 

...9.A-.Q-......-.... 

MERGE WITH REST OF RECORD COUNT 

.ttiLCv.7 N T H_P OST T TON.-.-.-.- 




o 

.-.. ..U U u . 

00505 

0 0506 

*—drCr-u-U-v-lHIrf— 

40300002 

20200001 


527+020 

527+021 

«,,,C O 7j. A O O 

w‘P* r\ 

STA 

LDA 

C T A 

c* ** zf 

2,X3 

LP,X2+CNBLK 

.... . . , 

O 1 M w f\ i n 1 v » ww X I JL w tl ■ 

GET LOAD POINT AODRESS 




o 

U U v U f 
00510 

0 0511 

4 0 tS w o u o r 
20200906 
3700 0465 

X 

7 CTT't| £ £ 

527+023 
.. 52 7+024 

Li 1 :4 

LDA 

LP A 

1 f X O 

EPP,X2+CN3LK 
8IT19 

GET FORMS FLAG 

KEEP ONLY FORMS FLAG 




.. —\nr5TZ~ 

0 0 513 
n n 51 A 

~T2WM¥3. 

40300003 
5 3 i'i ? 0 A 77 


52 7+025 
527+026 
•;? 7+n?7... 

SRS - 

STA 

IMA 

3 - 
3 , X3 

7-7-8 ......... 

MOVE' A BIT 

AND SAVE 

..GF T.USERS— ABORT- .R IT ... 




o 

......... U u./I t.- 

0 0515 

0 0516 

37000443 

34300003 

X 

527+028 
52 7 + 0 29 

LP A 

RAD 

3 IT 2 3 

3 ,X3 

KEEP ONLY ABORT BIT 

SET INTG BLOCK 





00517 53200000..5'2 7*+030 ..TTA.~.X'2^'N8LK".—-—— CONTROL BLOCK ADDRESS-TO A 

00520 13 0 77747 52 7 + 031 SHAQ -24 NOW TO G 


O 

00521 5330Q000 


527+032 

TIA 

X 3 

SAVE 4 WORD BLOCK ADDRESS 



.'.0 0522.53’60 0 0 QCT 

G0523 13000030 

00524 i4300003 


527 + 333' 
527+034 
527+035 

... .TIT .“ 

SHAQ 

... ENI. 

.X“2 ' ..... 

24 

.3,X3...-. 

.IN.X2... 

CONTROL BLOCK ADDRESS TO A 

.8 — W O RD—BLOCK.-.-.- -. 


O 

00525 00700247 

00526 54377777 

X 

X 

527+036 
527+037 

RTJ 

LDI 

FREEMEN 

RPSAPTR,X3+PSA 

FRE? IT 

GET POINTER TO USER 

rr r jnn .ununrn *u a o is 


O 

00527' <;4"O0 0 to2“ 

00530 37377777 

0 Q 531 34200003 

A 

X 

' 'on 7+ UBS 
52 7+039 
527+04Q 

Lu A 

LPA 

RAO 

- *.-BxT c ode .‘.'.... ..... 

ACCNUM, X3 + PSA.' 

3 ,X2 

GfcI JOB NUndtR MASK 

NOW GET JOB NUMBER 

PUT INTO BLOCK 



.00532.“20 100312 

00533 37000511 

00534 (13100543 

X 

F 

527+041 
52 7+0 42 

527+043 

.....TD7T.. 

LPA 

- A2J.NE 

“EWXT7XT ..... ? 

Bill 9 

UR3Q10 

. GET URSLGCG/QX' FLAG. 

KEEP ONLY THAT BIT 

..—JUMP..IF.URBLOC-Q____-.-..... 


O 

00535 20100023 

00536 53 50 0 00Q 


527+044 
527+045 

UR9Q05 LDA 

TAI 

QPNTjXl 

XI 

GET' POINTER TC~GUQUE 

PUT IN Xi 


O 

U 0 j 0 ( 5 S c. 0 u u U «j 

00540 44500001 

00541 44100001 


0 c 1 + 0 4 b 
527+047 
52 7+043 

! r A. 

SWA, I 
SWA 

' - X w ' ' ' . 

i,Xl 

1, XI 

A A wK jls t#u. u6K fi c LK L 0 j J 6 A 

POINT LAST ELEMENT TO THIS 

THIS IS LAST ELEMENT 



“.“.Q0542 0100145?' 

00543 18477777 

“p. 

‘ 52T+0W 
5 2 7 + 0 5 0 
52 7*Q5i 

... ujp .. 

UR3Q10 XQA ,S 

. O'NLTRK.... 

-0 

.~.RfcTUR'K . 

.. COMPLEMENT FLAG ........ 


0 0 

00544 34100012 

00545 20190000 

■""--00 546-- 3 55 00 223 
00547 031005-35 

00550 25200001 

p 

527+052 
527+053 
■■ 5 2 7 ■* 0 5 <+ • 
527+055 
52 7+056 

RAD' 

■ LOA 

—...SSAyT.. 

AZ J, HE 

UR8Q20 LDAQ 

EMIT » XI 

FB, Xi 
—S-PNTr-Xl 

URBQ05 

1 ,X2 

GET RID OF IT 

JUMP IF MACRO BUSY 

GET LP AND TFL 



..0 0551.“17 77 7777 

00552 45100000 

00553 53200030 


'.527+057“ 

52 7+0'5 S 
52 7+059.. 

.. jnro 

STAG 

.■ ■ tia _ 

. 7777TB . 

Fa,xi 

_X2 _*_-_-_ 

mg . c j- p . G s R Q A Q E .~ T. . 7 

STORE INTO MACRO 

. ...4 .WORD.BLOCK.ADDRESS.TC.A...... 


d ! .;.~ 

00554 40100013 

00555 54301457 

... - Q0556 - 0110 0025 

p 

527+060 
527+061 

STA 

LDI 

— —-— 

DEVBLK, XI 

UNLINK, X3 
-—S TRT lCC , XI 

SAVE IN MACRO 

LOAD.RETURN AODRESS 

_----- 


\ Q .. ' ' 

O, 


i + uDL 

566 

56? 



.... - 0 0557 . -2TrtrfftrZT . 

00560 53700000 

0 0561 2 0 30 0 0 Q Q 


569 

.57 0 .. 

. URBLOKNX.“LDI.. 

TAI 

......LOA..— _ 

.QPNT,“X1. 

X 3 

0 ,X3 

. IS .ANYT HING.ELS E WA IT TNG 

......'_LOAD. . POINTER . TO . HEX! . ELEMENT . 


0°- . 

Q 0562 210 77777 

00563 17777777 

X 

X 

571 

572 

■ LOQ 

ANQ 

INHIBIT , 

DIEPSUS 

.'. A .; .: 

SEE IF DIE OR SUSPEND SET 


0.. 

- • 0 0564 U 0 70 U 0 01 

00565 05600001 

00566 01100024 


5 74 

575 

ASG 

UJP 

1 

1 

QEMPTYjXI 

. . 0 K i r .ir.1. 1 I n t K .at " r ' 

SKIP IF POINTER IS PRESENT 

TELL THE DRIVER THAT IT IS DONE 



..0 0567. 47201457 

00570 53600000 

00571 14677777 

p 

. 576“ .. 

577 

577+001 

. . STT ~ 

TAI 

ENA 

. . -.- 

X 2 

... 7 7777B ... 

.SAVE THE.RETURN. ADDRESS ... 

SAVE ELEMENT AODRESS IN X2 

ENTER.A.MASK ...—............... 


O .. 

00572 37200000 

00573 44300000 

fi fie? /. a *2 1 n n c c n 

0 

577+002 

577+003 

LPA 

SWA 

0 ,X2 

0 ,X3 

GET POINTER TC NEXT BLOCK 

STORE IN Q POINTER 

, „ jiin 1,1 C T A D T WATD A . 


Q . 

U0574 U 0 10 0 5 5 U 
00575 53300000 

r 

O r/ + U U 4 
577+005 

. A Z J ? N t. 

TIA 

oKdUZU : 

X 3 

NU W 0 1 A K i n A lx H u 

OH-OH, MUST SET LAST POINTER 














































CP 
CD 

O 

o 

i o 
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(J O 5 7 b 

44300001 

577+006 

.SNA. 

. 17X3. 

TO CPGoNTER 

00577 

01000550 P 

577+007 

UJP 

UR3Q20 

NOW START MACRO 


: 'o 

,0 


Q 






O 

o 

o 


o 
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MOVE BUFF 


UNBLOCKING ROUTINE OPERATOR CONTROL SECTION 






































CD 

CD 

0) 

0 

0 

G 

O 

O 

o 

o 

o 

o 

o 

o 

a 
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M0VE8UFF 


UNBLOCKING ROUTINE OPERATOR CONTROL SECTION 


0 0 655 

...j 0 55 5. 

0 0 655 
17777777 
. .44 . 4„n.. (1 41 . 4.5 . 

P. 

67 0 

671 

. 57 ?.. 

. STRT04 . 

.ECU. 

ANQ 

....CT.n. 


777778 

.F nRMSWPD « XI.. 

CLEAR ALL THE FORMS BITS 


00657 

00660 

03300007 

01300000 

P 

673 

67 4 


AZJ, 

UJP 

LT 

UR3L0KI 

0 ,X3 

JUMP IF THE 0RIVER HAS BEEN START 

EXIT 


0 0 661 
00662 

. 0 0 661 

17777777 

41100016 

' P .... .. 

... or 5 .. 

6 76 

67 7 

STRT 06 

■ EQU 
ANQ 
ST Q 


77777 B 

FORMSWRD,XI 

CLEAR ANY FORMS BITS 


0 0 66 3 
00664 

-.-.00665. 

14477776 
34000653 
.0100 0 0 35. 

X 

.p...-... 

67 S 

679 

.-.600. 


ENA 9 
RAD 

.UJP. 

s. 

SCREAM 

.UR 6 L 0 K-IZ---- 

TORN OFF THE NOISE 



,0 


;0 


G 


tO 


o 


, 01 


Z l 


o 
o 
o 
o 
o 

. Q 

1*.o 

. o 

._.. o 











































CD ... 

CD . 

Cl .. 

0 " 
G _ 
O * 

O ..... 

0 " 

O .... 

O “ 

O ..... 

O . 

o _ 
o - 

Q, 

i d . 

(X~ 

o,. 

O 8 ' 

t 

o,. 

il 

o s “ 

Q._ 
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MOVEbUFF 


SLOCKING ROUTINE 


684 
68 5 
686 
687 

“ 6 - 8 ' 8 " 

689 

690 


696 

697 

698 
.69 9. 

7 q a 

.701. 

70 2 
703 
-7-0 4“ 
70 5 

..70_6_ 

7 S ? 
70 8 
... 7 ..O. 9 ... 

710 

711 
“7*1*2" 


? t e 

72 9 

730 

731"" 

732 

..7.3.3... 

734 

735 
7-3*6 


-744- 

745 

746 

74 7. 

748 

...Z..4..9.. 

75 0 
751 
7-5*2- 
753 
7 54 




V 

* 

# 

V- 

* 


* 




■¥ 


713 

714 

¥ 

¥ 

715 

..~~¥~ 

716 

¥ 

__717_... 

..¥. 

7 1 e 

¥ 

719 

¥ 

* 72 0 

¥ - 

721 

•¥ 

722 

¥ 

723 

¥ 

7Zk 

¥ 

.72.5.. 

_¥ .. 

72 6 

¥ 

727 

¥ 


¥ 

¥ 

“~¥~ 

¥ 

¥ 


¥ 

¥ 

.¥~~ 

¥ 

¥ 

' *. 

-¥«* 

¥ 


UWBLOCK 


THIS IS THE 
ADOTTION TO 
CARD READER 


691 

¥ 

CENTER 

692 

¥ 

THERE 

693. 

......_¥... 

-ONE, U 

694 

¥ 

TO IT. 

695 

¥ 

INPUT. 


UNIT RECORD BLOCKING ROUTINE, IN 
PROCESSING THE OBVIOUS ^THINGS LIKE 
FILES AND PAPER TAPE READER FILES 
THIS HANDLES OTHER INPUT DEVICES (LIKE THE RADIATION 

r.BY PRETENDING THEY ARE PAPER TAPE READERS, 

ARE TWO MAIN ENTRY POINTS INTO THIS ROUTINE 

W BLOCK*.WILL.WRITE-.OUT ANYTHING THAT IS GIVEN 

THE OTHER? UWBLOCKB, IS USED FOR CARD READER 
IT SCANS THE INPUT DATA AND CALLS UNBLOCK 
TO WRITE OU T 0 N L Y T HE IN F0 RM AT 10 N TH AT 
A JOB CARO AND THE CORRESPONDING LOGOFF CARD 
UW3L0CK8 ALSO DOES THE REQUIRED DIRTY WORK TO 

FORCE.EACH NEW JOB.INTO.A.NEW.INPUT.FILE.SO.THAT. 

THEY CAN BE MULTI-PROGRAMMED, THE FOLLOWING 

ASSUMPTIONS . ARE . USED . I N . THIS . PRO GECU R ET.. - 

A A JOB IS STARTED BY A [JOB? CARD 

3 IF ASSUMPTION A IS TRUE THEN IT IS OK TO 

--CARO' 'READER FILE.WHENEVER 

A i JOB , CARD IS PROCESSED 1 
C A JOB ENDS WITH A [LOGOFF CARD 

'...IT. C .IS.TRUE.IT.IS.OK.TOKEN'D.A.FILE. 

WHENEVER A FILL OUT REQUEST IS 
.REC-EXV-ED.FR-O-M.A.QRXV-ER. 


"O' 


SEQUENCING) 

SAftfr INPUT ” 


A USER WANTS 
FILE HE CAN 


CARDS 
W.TJOT 


NON-STANDARD IE 

...OR. 


..„N..O.N-.^SXA N DA A. D- 


¥ 

..¥. 

¥ 
¥ 

—..¥ 

¥ 
¥ 

...:.¥. 

* 

.. ¥„. 

¥ 
¥ 

—^ - 

¥ 
¥ 

...¥. 

¥ 

. :¥: . 

¥ 

¥ 

—¥« 

¥■ 
¥ 

.. 

¥ 

.¥. 

¥ 
¥ 

¥ 
¥ 

.¥. 

¥ 

.¥. 

¥ 
¥ 
¥ 
¥ 
¥ 

.¥. 

¥ 

. ¥ . 

' ¥ 
¥ 
¥ 
¥ 
¥ 

..¥. 

¥ 

..’.¥. 

¥ 
¥ 

¥ 
¥ 

.¥.* 

¥ 

.¥. 

¥ 
¥ 

■—¥- 

¥ 
¥ 

.¥. 

¥ 
¥ 

.¥ 

¥ 
¥ 
¥ 
¥ 

.¥¥¥¥¥*¥'¥¥'¥¥"¥¥”¥¥¥-¥¥¥'¥"'¥¥"¥¥¥“¥¥¥¥¥'¥¥¥¥"¥:¥¥~¥¥¥"¥¥¥"¥'¥¥¥¥¥¥“¥"¥"A^¥¥'¥¥-¥7¥¥'¥¥''¥¥¥''¥¥'¥''¥'¥"¥¥'¥'¥¥. 


- & 


IF FOR SOME REASON iJOB 

“TWO" • O 

FORCE THIS BY 
A MAKING HIS JOB 

..row,.. 

l JOB, 

-3 :_JiAXIfiG. MIX LCGCFF. GARBS 

[ LOGOFF OR 
[LOGOFF, 


SYSTEM EFFICIENCY IS NOT EFFECTED BY THESE 
NON-STANDARD CONTROL CAROS, EXCEPT THAT JOBS MAY NOT 

UE.MUETT-PRBGRAR'MED'.WH 'EM .THETnCCULO BE...'. 

UWBLOCKB ALSO TRIMS TRAILING BLANKS OR ZEROS (DEPENDING 

--UP-0-N.T-HE-.liQ-OE-.-OE—THE.REC-GRO-..(-M-OD-E.XS.ASSURED.TO.-.- 

BE BINARY IF WORD COUNT IS GREATER THAN 20), 

T#tFM£V'EfXA 'ORTVEft- DETERMINES' 'THAT' 'THERE WILL BE NO"' 

HORE DATA FOR AWHILE (EMPTY HOPPER ON A 405) II SHOULD 
GENERATE A FILLOUT BLOCK REQUEST TO FREEUF THE FILE 

IO'RFTl¥riDXTER'.STORAGE THAT 'ARE BUSY PROCESSING. 

THE INPUT # A FILLOUT REQUEST IS A NORMAL REQUEST 
XX-CEBJ.THAI.THE,..«.m. C-OUNT.IS.2ERCU......^..:.... 


737 

¥ 


7 8 8 

¥ 

ENQ 

‘ 73 5 " 

¥ 

."ENT 

740 

¥ 

ENI 

.741.. 

..¥_ 

____ENI. 

742 

¥ 

UJP 

743 

¥ 



TO USE THESE ROUTINES 
-ENA...-•.POI-NTER-TO- BUFFER- 


COMPLETION RETURN 

“BXCTCK7CHX.~. 

WORD COUNT,X2 
.XHME.aX.AXE..REXU.RN.fX3.. 


'FIRST"' WORD OF BUFFER IS" 
RECORD WORD COUNT 

ENTER.CONTROL.BLOCK.ADDRESS'. 

ONLY IF CALL TO UWSLOCKB 


PROPER ENTRY POINT 

XF—THE OP ERA IX OH""'IS - QUEUED- -FOR-S-GME- REASON RETURN' " 
IS MADE TO THE ADDRESS IN X3 

T.F THE.OPERATIC-N.IS.IMMEDIATCY.COMPLETED.RETURN.IS. 

MADE TO THE ADDRESS IN Q AND X3 WILL BE COPIED 

XMXQ.X.2_______1....,...:.. 


IF THE CALL IS QUEUED ? UPON COMPLETION RETURN WILL 
-BE-MADE TO THE ADDRESSXN^-Q WITH THE NEW RETURN 
ADDRESS IN X2 
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HOVE BUFF 


BLOCKING ROUTINE 


FC3DEF 


0 0 0 0 0 
0 0 0 01 
0 0 002 


0 0 0 03 

DUWr 


0 0 0 0 5 
-0-W4&- 


* 

* 


.. 

¥ 

FILE CONTROL BLOCK DEFINITIONS * 


7 0 

71 

if. 

■ ACCWORD 

EQU 

0 

.72. 

.LP. 

ECU 

1 

73 

....7.4... 

COREP 

.., * ___ 

EQU 

2 

75 

. * 



76 

—77'— 

CBP 

_g.pp_.__ 

EQU 

-EQU— 

COREP+1 


ACCOUNTING WORD (MUST BE 0) * 

LOAD.POINT.BLOCK. * 

CORE POINTER IF NON-ZERO * 

IF SIT23 = 1 j CORE BLOCK HAS -.* 

BEEN WRITTEN INTO * 

BLOCK NUMBER OF THE CURRENT BLOC* 

CURRE N T POSITIO N~POI1tTER ....* 

(REL. POSIT. WITHIN BLOCK CBP) * 
BIT23 SEZ READ-ONLY * 

8IT22.SEZ.AT .LOAD.POINT.. * 

BIT21 SEZ END OF DATA * 

8X120 S EZ FILE K ARK -J USTREAD.* 

* 

6IT18 SEZ BINARY RECORD PROCESSED 
BIT17 SEZ A8NCRNAL/UNAVAILABLE * 
BII16 SEZ ADDRESS ERROR * 

BIT15 SEZ SAVED FILE . ... * 

.NUMBER OF BLOCKS BEYOND.* 

THE CURRENT BLOCK * 

END- POSITION POINTER.- - - 

BIT22 SEZ THE FILE HAS CHANGED * 


BIT 2 2 
8IT21 
8IT20 
FILE S 


SEZ POSITIONER READY 
"SEZ -DESTRUCTIVE READ 
DIRECTORY 


CHANGED 



95 




BITS : 

15-18 CONTAIN THE 

HT * 


96 

. * 



BITS i 

ro-14.cwrairmon 

POSITION.*. 

0 0 007 

97 

TFL 

EQU 

7 

TOTAL 

LENGTH IN BLOCKS 

♦ 


O 
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BLOCKING ROUTINE 



.CD 



75 9 
102 
i n 3 

UW3DEF 

. * 

Vi- V VVWV VV VV V V 

¥ 

***** ... 



CD ‘ 


104 

105 

. 9 . 

. * 

. * 


UWBLOCK BLOCK 

* 

DEFINITIONS * 


"Q 

(3 

0 0 000 

10 6 
10 7 
108 

. . *..“... 

.* 

C ON BLOC K 

EQU 

0 

V 

POINTER TO 8 WORD CONTROL BLOCK * 


.,o 

0 0 0 01 

n nun? 

109 

110 
111 

BFPTR 

. * 

. hIKPOS. 

EQU 

FQIJ _ 

C0NBL0CK+1 

.aFPTS + 1. 

POINTER TO CURRENT CORE BUFFER * 

-0 IF NO BUFFER PRESENT * 

..CURRENT.BLOCK.POSITION. -.*. 



G 

0 0 0 0 3 

0 0 0 0 4 

112 

113 

114 

115 
11 6 

IMAOR 

CALLBAO 

EQU 

EQU 

3LKP0S+1 

IMADR+1 

ADDRESS OF NORC COUNT AND IMAGE * 

CALL BACK ADDRESS * 


o 

O 

0 0 0 0 6 

RDIST 

. * 

EQU 

CALLBAD+2 

RTJ MAGHERR * 

ENI BLOCK,C8I * 

UJP IMPURE *. 


...8 O 


.0 0 010. 

0 0 0 11 

0 0 01? 

.117. 

11 8 

.i i Q , 

WCN1 
GBLOCK 

T I N AH. 

EQU 

EQU 

FQIJ.. 

ROIST+2 

WCNT+1 

...aei .or,K+4 . 

TEMPORARY WGRO COUNT * 

ADDRESS OF CURRENT BLOCK * 

. tf HP OR A RY - FOR.CLR R ENT.POSITION.*. 



o 

0 0 013 

0 0013 

120 

121 

PSA LOG 
0I5K3US Y 

EQU 

EQU 

TIMAD + 1 

PSALGC 

ADDRESS OF ASSOCIATED PSA * 

BUFFER UNSAFE FLAG * 


o 

.01 

o 

0 0 015 

0 0 0 16 

■"•■±22" 

123 

124 

EXITAOD 

PFSAVE 

EQU 

EQU 

PSALOC+2 

EXIT A00 + 1 

t, N X ti L u u K i G B X 

UJP IMPURE RETURN ADDRESS * 

TEMP TO SAVE THE CONTENTS OF PF1* 


_iO 

...".■.WOT?....... ..'.“. 

U 0 020 

0 0 0 21 

. TZ1T~ 

126 

.4.2-7. 

.UHBTsrcr. 

UWSRET 

.U.Hfl X3. 

.EQU.. 

ECU 

...E-Q-U—. 

.PFSAVE+I.. 

UH8WC+1 

. UWBWG+2 __—. 

.~.“.TENF.TO.SAVE. WC .A NO.CALL BACK "' * 

ADDRESS IF CALL TO UW8L0CKB * 

___TEMP.TC.S-A V E.RETURN.ADDRESS.IF.*..-.-. 


... Z i 

o 


12 8 
129 

.* 

. * 



CALL TC UW8L0CKE * 

BIT23 IF LAST RECORD WAS [LOGOFF* 


o 

0 

...— [rtrO 22 

00023 

0 00 24 

"l 30 “ 

131 

132 

. BATCHPNT 

OESTLP 

U'WMAX 

EQU 

EQU 

EQU 

.U W85C3+± 

BATCHPNT+1 
.DESTLP + 1. 

--- POINTER TO THE PROPER BATCH Q * 

DESTINATION LINE PRINTER CODE * 

NUMBER CF.WORES IN BLOCK * 


_ o 


.133. 

134 

* 4 

. 4 

.... .*¥ .. 



¥ 

¥ 

..Tug.F...O-LLG-W-X-NG.A-PE-.USE-D.O-NL-Y-.F-G-R.. & . 



o 

00 024 

_ .- 

136 
1-3 ? 

■, w A, 

.* 

EXP DATA 

EQU 

UWMAX 

14* W. 1 W U f 1 4JL i ^ W I S. w KJ W w W t T 'lw i 4 Xif # % 

DEVICES THAT COME FROM THE POPS * 

BIT23 ScZZ EXPECTING DATA * 


o 

o . 

0 0 0 25 

4., 0 

139 

140 

,, ,, , , ,* w , ,, » 

* 4 

4 

COH WORD 

EQU . 

EXPOATA+i 

olio 1 h— u HA vl b4 Wu HU cLObls ^ 

ADORES^ 4 

12"a IT-BYTES WITH THE CONTROL * 


.:.o 

0 0 0 26 

. TWJT 

142 

-143 

. 7* :.“ 

0 EVTYPE 

EQU 

COMWORD+1 

.' "SLOCK INFGRMATICK ...*.. 

SITS 1.4--0 HAVE UWBLOCK ROUTINE * 

.. ... POINTER ...-.;...... * . . .. .. . . . 



O ' 

“ GO 0 27 . 

144 

145 

i U 

..... 

U WMAXA 

« * 

mmhmmmm 

EQU . 

“devtype+iD . 

NUMBER CF WORDS IN LONGER BLOCKS* 

V 

.. . 


o 


o __.:____:___:._,____o 


O ....“.: . . ..”7“ ' ~ “ r “~ ' ■ ”7; . 7 .. r .. o 


q 2 

o 1 


o 

o 


! 

! 




o 






o 


o 
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MOVEBUFF 



0 0 566 
.00667. 

0 G 666 
403GGGG1 
.5 3^0 0 000. 

P 

.7b 2. 

7b 3 

.7 in... 

.IWADR. 

.EQU. 

ST A 

.IT A. 

0 

0 067 0 
00671 

53500000 

53200000 


765 

766 


TAI 

TIA 

Q . 

... 0 0676;. 

0x0006/6 

0 G 6 7 o 

■ P...... 

P 

.. 76 7. 

766 

769 

UWB LOCK 

UJP 

ECU 


0 067 3 

0 0674 

._.0 0675. 

45100003 
77730 000 
. 53300000. 


770 

771 

... 772. 


STAS 

VFD 

. TIA.-.-. 

o . 

0 0 676 

00 676 
4410 0015 

P 

773 

774 

RG8NS 

EQU 

SWA 

O . . 

0 067 7 
00700 

20100001 

03200720 

P 

....7 75. 

776 

77 7 


.L'O A . 

AZJ,GE 


0 0 701 
00702 
___0 0 70 3 

”TF5COO”OX 
03000762 
.14477QQ1. 

P 

.7 7 8.. 

779 

.. ................. ... . ? J 


~.LDA,T 

AZJ,EQ 

•g.MA-.-S. 

o 

U U # v# U 

00704 

0 0705 

40100002 

53100000 


781 

762 

*7 fi ”5’ 


U nn f u 

STA 

TIA 

AwT/,............ 

o _. 

00 70 6 

0 0 70 7 

0 0710 

“5 3 7 0 0 0 00 
l4 70 0666 
14600712 

P 

P 

783 

784 

785 


I'Hi'"' 

ENQ 

ENA 


GQ7il . 

00 712 

.-. 0,0713. 

nmnnnnrr 

03200717 

. g.n.nn.Q.&44- 

X 

p 

V 

, /w 

78 7 

7ft 6 


UJP 

AZJ,GE 
. |_OA .- 

O . 

0 0 714 

0 0 715 

35100013 
40 IQ 0 013 


789 

790 

-y o a 


3SA 

STA 

it i rj t 

o _ 

ti U T X D ’ 

.00717 

uIbuUul b 
00717 
. 40 10.0,001 . 

p 

—- —.“■ 

792 
.793 . 

GBNOW 

U J 1 j> X 

EQU 

STA . 


BLOCKING ROUTINE 


“ ..RETURN. FROM.GETBUFF ... 

3FPTR,X3 SAVE MEW BUFFER POINTER 

.X 3 ----- —.-...—.- .-. 

C31 GET BACK CURRENT BLOCK POINTER 

X 2 RETURN ADDRESS TO A 

— — 

* ENTRY FOR BUFFER OUTPUT 

“ I MAOR, C8I. “ SA VE THE WORD COUNT ADDRESS . 

A 12/DINT 

—X3--* ..RETURN ADDRESS TO A---- 

* 

EXIT ADD,C8I SAVE THE RETURN ADDRESS IN 8L0CK 

-~---~----— 

HW8UF JUMP IF SUFFER PRESENT 


IHADR,C8I LOAD.THE. WORD .COUNT WORD. 

COMEXIT EXIT IF FILL CUT BLOCK 

-HLNT-«-W-PF-Q......-.-.-... 

BLKPOSjCBI SET BLOCK POSITION FOR NEW BLOCK 

CBI 

. X-3-”---OWtY” INDEX - THREE TS' REST"OR£D"~—' 

IWADR ENTER LATER RETURN FOR GETBUFF 

♦+2 ENTER RETURN ADDRESS 

“GET30FF 'GETT“CDR £ ' BUF'FER '..... 

GBNOW JUMP IF BUFFER AVAILABLE 

■B-IT2-3- _-__-_-_-_-____—.-__ 

DISKBUSY»CBI 

DISK8USY , CBI OTHERWISE, SET DISK BUSY FLAG 

. EX'ff-A'D&TCBI' .- •— “AND ~E*X*Ff“ 

BFPTRtCBI _SAVE NEW BUFFER POINTER . 
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00720 
1107 21 

0 0720 
77650001 
4 0 10 0 0 16 

P. 

a- 

00722 

0 072 3 

20100001 

77640001 


CD 

0 0724 
00725 
00726 

"2 010 0 0 0 3 
53700000 
20300000 



0 0727 

U 0730 
..0 0 731- 

.03 00 10 51 

17677777 
.0 460 0 0-0 0 

.P.'.. 

O 

00732 

15400001 

0 0 7 33 

P 

O 

0 0 7 

00734 

00735 

40xu0010 
20100002 
53600000 



.0 0736. 

00737 

0 0 74 0 

.213 0 G WG 

41205000 

15400001 


O 

o. 

0 0 741 

0 0742 
00743 

0 0 744 

03200765 

0 0742 

-~4'Q'±O-O’O'0'2“ 

15300001 

20100010 

P ' 

P 


*. 00745 

0 0746 

.15477776 

03200733 

P 

O 

0 074 7 
00750 

.2 0 10 0 0 16 

77640001 


0 ... 

.0 0 751 

0 075 2 

20100013 

03200762 

P 


..'.0 0753. 

0 0754 
....0 0755 

""'37 077777 

4 0 10 0 013 
.20 10 0 01-3- 

""x. 

o * 

00756 

0 075 7 

... ....; v,. n.^.r.- a,... 

53700000 

14477777 

X 

o 

0 0 76 0 

0 0761 

0 076 2 

.. ufy'o tru’UUu. 

00 777777 
20100015 

X 


'...0 076 3 

00764 

.5'360V300. 

01500004 


o 



o 

o 

Q 2 

d ! 

o. 

9 

o 8 


o 6 

o s 



BLOCKING ROUTINE 


PFLOC+PFR 

P FSA V E» C3I . 

BFPTRjCBI 

PFLOC+PFW 

-I-KAf)-RT&81—~ 

X 3 

0 ,X3 

FILL OUT.“.“ 

777778 

KJ—--- 

1 

w 

itCNTrcer— 
SLKPOSjCSI 
X 2 

0 ,X3. 

C ORE + WPF3jX2 

A 

.GBIW". 

* 

8 LKPOS> C81 
1,X3 

WC NT f CB I. 

PLCLOP 


SAVE PFLOC 


SET PFLOC 

LOAD ACDRESS OF 8UFFER. 

SET INDEX 

LOAD FIRST WORD (WORD COUNT) 
WRITECUTTHIS BUFFERIFZERO 

.MOVE ONE WORD IF FILE MARK ~ 

MOVE (COUNT+2) WORDS 

SAVE PRESENT WORDCOUNT 
LOAD CURRENT BLOCK POSITION 
MOVE POSITION TO INDEX 

TOAD.WORD TO EE MOVED 

PLACE INTO CORE BUFFER 

COUNT UP CURRENT POSITION. 

JUMP IF BLOCK OVERFLOW 
RETURN IF INTERRUPTED 
SAVENEWBLOCK POSITION 
COUNT UP PRESENT BUFFER POSITION 
LOAD PRESENT COUNT 

.COUNT.DOWN.COUNT .. 

JUMP IF STILL WORDS TO MOVE 


PFSAVEj CBI RESTORE PAGE FILE 

PFLOC+PFW 

--______ — 

COMEXIT NORMAL EXIT IF NOT DISK3USY 

.NBIT23 . .■... — . .. 

DISK8USY>CBI CLEAR DISKBUSY FLAG 

. P--SAL 0 C, CBI..-.. 

X3+PSA 

NCRWAIT 

“OxX^PSA . SKIP IF PSA DOES NOT EXIST 

IOCLEAR OTHERWISE CLEAR CRWAIT 

£ XIT ADD j CBI LOAD RETURN ADDRESS 

.*..~. . . . . ... 

GALLSADj C8I 


CALL SACK 
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HOVE BUFF 


& 

CD 

Q 

G 

O 

o 

o 

o 

o 

o 

o 

o 

o 

a 


.0 0 765.P 

00765 53300000 

0 0 766.4 0 10 0 012. 

00767 14477777 

00770 P 

00770 40004001 

00771 20000713 X 

00772 35100013 

'00773.40100013. 

00774 53100000 

00775.53700000. 

00776 14100001 

00777 14200001 

01000 00777777.X 

01001 40004000 

01002 21300011 

010 0 3.4030 0011. 

01004 1460 1021 P 

01005. 4-4-3041U-47 .- 

01006 20300016 

01QG7 77640001 

01010 13 00 0 0 30 

01011 21300001 

01012 12400011 

Ti'OlT.T'5"3¥MT¥.. 

01014 47377777 X 

04015.45377774-.:. 

01016 14101000 
01017 14277777 X 

010 2 0 0 407777?.X” 


01021 P 

. 01021 .-2-040 0 0 0 0- - 

01022 53600000 

01023 14400001 

04024 34200007 

01025 34200005 

01026 53303000 

.04027.""4410 0.015 " 

01030 20100010 

04031.0320104i.P- 

01032 P 

01032 40100001 

01033.1460 0751 P 

Q10 3 4 4410 0 0 07 

01035 531000GG 

"040 36.53 70'0 QUO." 

01037 1530 00-05 

010 40.04077777 X- 



BLOCKING ROUTINE 


X 3 SAVE CURRENT BUFFER POSITION 

—TIM AD -,-CB-I-....—-----.-.-. 

- 0 
* 

~C 0 R E + .. g £ j B ACK POINT E -r———————— 

8IT23 

DISK8USY,CSI SET THE DISK BUSY FLAG 

D ISKBUS Y, CSI. 

CBI MOVE THE OBI INDEX TO AN UNUSED 

.X3-INDEX SO.HE.CAN.GALL.GETBLK 

1,X1 PREFER BLOCK ON OISK ONE 

1,X2 WANT SINGLE BLOCK 

"G^ETBtrK——.GET.NEXT DISK.BUFFER- 

CORE SET FORWARD POINTER 

CBLOCK,X3 GET THIS BLOCKS DESTINATION 

.U"SrO C‘K7X3.*. S A V E.N E XT.DI S R.A D D R E S S ". 

UWDISK SET UP THE RETURN ADDRESS IN 

-R-DIS-T + 4rX3.-.THE MACRO CONTROL BLOCK-. 

PPSAVE,X3 RESTORE PAGE FILE ONE 

PFLOC+PFW 

~-—di s K _ A . e DR e^s-t-c-a-—— 

3FPTR,X3 LOAD BUFFER POINTER 

.3.....-._..._ ..AND TURN INTO CORE ADDRESS 

£ XIT A D D -1, X 3.KLUDGE" A RETURN A O0RESS 

FIRE,X3 

..-R.04S-4^EXiT-.A-O-B-+4,.-X3-—GENERATE.ADDRESS. FOR .INTER 

NPF3.X1 LENGTH OF TRANSFER 

WRITE,X2 

“PK!Pt— -—- I‘N 4T1 ’kTE" 'OUTP UT~——— 


CONBLOCK,CBI 
X 2+CNBLK 
1 

TFL,X2+CNBLK 
BLKR,X2+CN8LK 

ifrawi 

WONT,CBI 

-R-PL-C-W-- 

BPPTRjCBI 

RDIS T +1,CSI 

CBI 

3 ----—. 

RBIST,X3 
-GIV3UFF -. 


DISK TRANSFER DONE 

LOAD THE.CONTROL BLOCK.ADDRE-S-S- 


COUNT UP TOTAL FILE LENGTH 
AND BLOCKS REMAINING 
SAVE THE RETURN ADDRESS 


WONT -0 TO DISCARD BUFFER 


NO SUFFER NOW 

"SE~T“'t h P"“T'H€' .RETURN 'IN THE 

MACRO CONTROL BLOCK 
GENERATE RETURN ADDRESS IN X3 


j-X-VE—B-UFFE-R—8-A-C-K- 
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3LCOKING ROUTINE 


.:.. ,, (B 

Q ' 

01041 

... 01042. 

01041 

77650001 

. 4 0 t,j 0 016 

p.;. 

89 0 
891 

. H Q p .. 

RPLCW 

EQU 

PFA 
ex A 

.#.. 

PFLGC+PFR 

. pC.eAWC.rjLT . 



01043 

01044 

20100001 

77640001 


893 

89 4 


LD A 

APF 

BFPTRjCOI 

PF.LOC+PFW 

SET PAGE FILE ONE 

J Q 

Q 

U1Q46 

01046 

01047 

2 0 10 0 012 
53700000 
14477001 


895 

396 

897 


EDA 

TAI 

ENA 5 S 

TIMAD ? Col 

X 3 

HLNT-WPFB 

LO AD CURRENT S UFFER PCIN TER 

. „a 


01050 

01000742 

p 

898 

899 

.g.QQ. 


UJP 

PLCR 



O 

01051 

01051 

20100002 

p 

901 

902 

FILLOUT 

EQU 

LD A 

¥ 

B LKPOSy C9I 

. FOR END OF BUFFER 

0 

o . 

01062 

01053 

01054 

63 70 0 0 0 0 
14400000 
40305000 


9 0 3 

90 A 
905 


TAI 

ENA,S 
ST A 

0 

C0RE+WPF8 »X3 

SET POSIT ION —— - 

SET IN.ZERO RECORD LENGTH 

. ,„hO 


01055 

01056 

. 0105 7. 

. 1-4477777 

40 10 0010 
. 04 3770 01 . 


.906. 

90 7 

. :-90 3 .. 


.£ N A , S. 

STA 

.TC£ .. 

.-'0.... 

NCNTjCBI 

_ HLNT- WPFB . X 3 —- 

SET END OF FILE FLAG 

. SK IP .I F.T HF.Q L 0 CK.IS.F HPTY. 

...§ 

KJ 

01060 

01000770 

fvn. 4 ^ 

p 

90 9 
910 


■ JL KU . 

UJP 

n , . 

GBLW 

Q rnT D. r fv ; n x ■■■ .. 

.U XT.i l * 1 t ;ttr . .\m> \? X£ V\ JLX* ! t 1 f 1 ... 

**********. r* *. 'T L i r, C ,,vKH IMQCO < .. .*. .., • 

0 

o 

x*\ 

ulUbl 
0106 2 
01063 

c 11 0 y U'U 1 
12400011 
20100016 


'9±1 ■ 

912 

913 


L b U 

SHQ 

LDA 

DrP fK 9 ODl 

9 

PFSA V£» CBI 

':L 1 1 ht 1/4 i-4bt NUMBER 

FORM THE CORE ADDRESS 

RESTORE PFLCC 

_ 0 

....0106 4. 

010 65 

____01066. 

. 77~6W0~0X 

14477777 
.a 1.0.0.1-072.. 

p 

914 

915 

.-9-1-6-. 


.'APF .. 

ENA,S 

.UJP.-. 

PFCO'C+PF'W ..... 

777773 

--EMPTY XIT-- 


... r, i 




o 

o 


o 

o 


o 

o 

o 

Qa 

d 1 


o 

o 

o 

o 

o 




O 5 ...-. .:. .... 7-.~.^.““. — . “ .: ..' ....“ ..".:.; o 





o 


o 
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M0VE6UFF 


01067 
01070 
01071 
01072 
01073 
010 7 4 
01075 

01076 

01077 


0110 0 
01101 
0110 2 
011 0 3 


01104 
0110 5 
01106 
011 07 
OHIO 

.OTlll 

01112 
0111 3 
01114 
01115 
01116 
01117 
01120 
01121 
01122 
01123 
01124 
0112 5 


..0 1067 .P" 

4510 0017 

5330 0 000. 

44100021 
02601104 P 
20100021 
03201076 P 
14701100 P 

.01076.P 

14677777 X 
01000673.P 

01100 P 
G O 70145 7 P 
14600000 
40100000 
0150'G 020. 

.-.04104.P- 

20100017 
53240000 
*5370 0000 
14700000 
05200024 

.21077777.X 

20300001 

-0-3-5-0-4.14.Z-.P 

03701117 P 
15377776 

“0 2 6u'1112.'P 

1520 0 G 01 
20100017 

.5370 0 00 0 .. 

20 00 0067 X 

.532.4 0-00 0 *-. 

0570G001 
01001143 P 


‘ 918 
919 

.920. 

920+001 

921 

'*923— 

92 4 
925 

.92 6 ... 

927 

.92 8.— 

929 

930 
“931 

932 

933 

.934". 

935 

.-93-6--— 

93 S 

93 9 

940 

940+001 

941 

.Wl+OOT. 

94 3 

-.9-43+0 01 

943+002 

946 

“9*47—• 

94 8 
94 5 
~g5TT 

951 

.9-5-2.—. 

952+001 

953 


0Via LOCK 3 


EQU. 

STAQ 

IIA. 

SWA 

IJD 

to-ft— 

AZJ j GE 


TJ WO FILL' 


UW 8 FILLD EQU 

”~“Rr3— 

ENA 

STA 

UW3EXIT.UJP, I 


UN 8 NOTE 


.EQU- 

LOA 

AIA 

TAI 

ENQ 

ISG 

“xua 

LOA 

.AQ-J.,-ME-.~ 

AQJjLT 

INI 

“13*0— 

INI 

LDA 

"TAI 

LOA 

.AIA- 

QSG 

UJP 


01146 

01147 

.01150. 

01151 

01152 


01153 
01154 
01155 
0115 6 
01157 
0116 0 
01161 
01162 
01163 
01164 


U1165 
01166 
01167 
01170 


53 60 0 0 00. 

20100000 
...0-3 00-1-10-3.P- 

2510 0017 
01000673 P 

01153 P 
35001142 X 

”40300000 .“ 

25300001 

.13.0777.55-.- 

20001453 P 
03501165 P 

±470 4175 P. 

20 10 0 0 21 
53700000 
01001076.P 

..01165.P- 

25300001 
33001451 P 
43400*000 
03101144 P 


0 1126 
01127 

53 20 0 0 0 0 

Q4177777 

X 

965 

966 


TIA 

ISE 

0413 0. 

01131 
.0 4132 

01001132 
00401143 
.24 30-0 0 01- 

P.. 

P 

967 

968 

.... §6 9. 


UJP 

SJ4 

.L-D--Q.-. 

01133 

01134 

12477755 

04700017 


970 

971 


SHQ 

QSE 

0113 5 
01136 
01137 

U1 Q U 444*3 
213000Q1 
12477763 

P .. . 

9/2. 

97 3 
974 


UJP 

LOQ 

SHQ 

0 4440 
01141 
..o 1142. 

.04 7 0'47I7 

01001153 
20 00 0 771 

P 

X.... 

". 975 

976 

977 


USE. 

UJP 
[_ 0 /\_ 

01143 

01143 

40300000 

P 

97 g 

97 9 

UW3STWC 

EQU 

STA 

0114 4 
01145 

.0 14 44 

20100021 
53 70 0.00 0 

P 

~ ‘ 9 8 C 

981 

982 

UMBL'QklT 

LDA 
TAX. 


.'991. 

992 

993 

.99 3+0 01 

993+002 

-997— 

998 

999 

TWO.~. — 

1001 

4002.... 

100 3 

1004 

1005 
100 6 


'.TAX 

LDA 

..AZJ»EQ- 

LOAQ 

UJP 

UWBCCARD EQU 
SS A 

STW 7 
LDAQ 

____ SHAQ- 

LDA 

AQJ,ME 

LDA 

TAI 

~ “ UJP. 


NOTJ03 


EQU.. 

LDAQ 
S3AQ 
SC A Q 
AZJ»NE 


BLOCKING ROUTINE 


X 3--— 

UW9X3,C3I 
UW3N0TF,X2 
UW3X3,C6I 
* +2 

U WBEILLD.. 

K ZERO 

UNBLOCK- 


SAVE WC AND INTERRUPT RETURN 

RETURN AGGRESS.TO A. 

SAVE FOR LATER 

JUMP IF NGT A FILL OUT BLOCK 
WAS THE LAST'CARD LOGOFF 
JUMP IF IT WAS NOT 
CHANGE THE RETURN IF LOGOFF. 

SAY TO GENERATE FILL OUT BLOCK 


UNLINK- 

0 

C0N8L0CK,C3I 
UWoRETjCBI.“ 

_ 

uwewc,cai 

X 2 
X 3 
0 

21-1,X2 

.BLANKS 

1 ,X3 

..+ +4.___ 

* +3 
-1, X 3 

i,X2 

UWBWCjCBI 

. x *3 -. - 

BINARY 

X 2..-. 

1 

UW3STWC 


_CRF.ca.LK.iCax. 

jjfr j g 

UWSSTWC 

1, X3-— 

-18 
CMODE 
UK 8 STWC * ■ 
i»X3 
-12 
TTWRK 
UWBCCARD 

-BIT-23- 

* 


UW8X3,CSI 
X 3 

—jjr-gr. ; .~ 

C 0N3L0CKiCBI 

U-W8E-XIT- 

UW3WC»C 8 I 
UNBLOCK 


FREE THE CONTROL BLOCK * 
FORGET THE CONTROL BLOCK 

"RE TURN.TO.THE.CALLER. 


LOAD THE WORD COUNT ADDRESS 
POINT TO THE END OF THE RECORD 

BINARY RECORD FILLER 
SKIP IF A BINARY RECORD 

BCD'.RECORD.FILLER.'.*. 

SUPPRESS TRAILING ZEROS 


LOAD .THE.WORD.COUNT ADDRESS . 

LOAD THE BINARY INDICATOR 

ADD.IN.THE.WORD COUNT.-.-.. 

SKIP IF SCO RECORD 
GO STORE THE WORD COUNT 

WORD COUNT TO A 

...IS.THIS.THE.STANDARD. CARD . READER 

IF SJ4 DONT CHECK CONTROL CARDS 
-LOOK-.AT.THE-FIRST.CHARACTER. 

IS THIS A CONTROL CARD 

*JU HP .IF.NOT ' - 

CHECK FOR JUST FILE MARK 


JUMP IF CONTROL CARD 
-LOA D .FI LE .MA RK .SPECIFIER.-.- 

SAVE THE WORD COUNT 

LOAD THE RETURN ADDRESS 

PUT THE RETURN ADDRESS INTO X3 

AND.X2.IN.CASE.RE.ARE.IGNORING. 

DO WE HAVE A CONTROL BLOCK 

EXIT.IF NOT...—-- 

RESTORE WC AND INTERRUPT ADDRESS 
PRETEND ORDINARY CALL 


BIT23 
0",X3 ~ 

1 »X3 

--18. 

JOB 

N OT JOB 
UW 86 A-L*L 8 ~ 
UW8X3,CBI 
X 3 

UWSFILL. 


SET THE CONTROL MODE BIT 
'SAVE THE ' WOES' COUNT WORD 
LOAD THE FIRST TWO WORDS 


CHECK FOR A JOB CARD 
JUMP IF NOT A JOB CARD 
ENTER COMPLETE ON ADDRESS 
LOAD THE RETURN 

F ORCE.A.FILL.CUT BLOCK. 


1 ,X3 

LOGOFF 

0 

UWQLORET 


IS THIS A LOGOFF 


NOT LOGOFF EITHER 
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BLOCKING ROUTINE 





....BTT7T 

0117 2 
01173 

20X00021 

35001153 

4 0 10 0 0 21 

X 

1006+001 
1006+002 
.inn 6+0 0 3. 


XOA. 

SS A 

ST A. 

.UWBX3,C8I. 

3IT23 

..U W8X3 .. CBI. 

SAY VIE SAW A LOGOFF CARD 

AND.RENEWBER IT. 



CD ^ 

01174 

01001144 

P 

1009 

1010 


UJP 

UW3LDRET 




Cl 

01175 

01176 

01175 
53200000 
40 10 0 021 

*p__...—— 

..-1_ o j_ -J_.. 

1012 

1012+001 

UWd CALL4 

EQU 

TIA 

ST A 

X 2 

U W3X3 j CBI 

RETURN AO DRESS TO A 

(ALSO CLEAR LCGCFF LAST CARD BIT) 




.0117 7. 

01200 
n i p n i 

0070X457 
14300003 
n n 7ii n 474 

P 

X 

1014 

1015 

i n i 6 . 


RT J 

ENI 

o r.!. 

UNLINK 

3,X3 

.6 £TM EM..-. 

SWI2ZEL THE CONTROL BLOCK 

GET THE CORE FOR A NEW CONTROL 
.BLOCK. 



O ~ 

.. ..U JL C. U X... 

01202 

01203 

40100000 

53100000 


101 7 

1021 


STA 

TIA 

CON3L0CKj CBI 

CBI ' 

MACRO POINTER TO A 



G 

01204 

01205 

35 0 014 50 
40300006 

p 

.1023. 

1024 

1025 


SSA 

STA 

* OESRDCR. 

EPP,X3+CN8LK 

u E S T RUCTIvt R E A C AND C R ST ATU S 




.01206. 

01207 

01210 

20 10 0017 
5360 0 000 
30200000 


.10 215.:. 

1027 

1026 .. 


roA. 

TAI 

0. . 

U WBW C > C 81 

X 2 

..n.v?. 

POINTER TO WORD COUNT WORD 

X2 WILL POINT AT RECORD START 



O 

01211 

01212 

17677777 

40300007 


1029 

1030 


ANA 

STA 

7 7 7 7 7 B 

TFL,X3+CNBLK 

. ... . a ■ ...... .. .. ..... 

REMOVE CONTROL CARD BIT 

SAVE IN A TEMF 



o 

U121 3 
01214 
01215 

1 Surf(li 
45300003 
40300005 


..x 0 31. 

1032 

1033 


SH At4 
STAGS 
STA 

** 4o 

C8P» X3+CNBLK 

3LKR,X3+CN8LK 

IHlo bnOULo Zb RU A ANU U 

ZERO JOB NO. AND VAL. CODE SPOT 

ZERO ANOTHER TEMP 




.012X6. 

01217 

W30TTQW' 

15200001 


.X0"33+~'GTST. 

1034 

10 35 


'STS.“. 

INI 

..ACCH'ORD, X3+CNSLK. 

1 > X2 

.ZERO.'OU T.BEST I NAT ION.Q'UG'OE 

00NT LOOK AT WORD 0 OF CARD 



o 

01220 

01221 

14701222 

01001334 

p 

p 

1035+001 

1035+002 


ENG 

UJP 

++2 

M PACK. 

PACK FIRST ITEM- 



0 

01222 

01223 

01224 

*0100122 6’ 
41 30 0 0 00 
14701226 

P 

10'o5+ 00 3 
1035+004 
1045+005 


UJP. 

STG 

ENQ 

PRO u Nun 

A CCW ORO,X3+CN8LK 
+ +2 

."" NUMBER.FOUND .......... ......*..... 

BCD SYMBOL/QUEUE QESTINAQION 




'....0122 5. 

01226 

0 1227 

"01001334" 

05500000 

Q1qq1235 

'P.■. 

P 

.T0'3'5+W6". 

1035+007 

1035+008 

PROGNUM 

03 P 

GSG, S 
UJP 

■ HPACK 

0 

D GO P X T 

.PACK.NEXT.SYMEO L.ON ' L1 NE 

JOB NUMBERS MUST BE POSITIVE 

.BC 0. S Y MB O-L/ERRC-R.....- _ 



O . 

01230 

01231 

41300003 

14701233 

P 

1035+009 
1035+010 


STG 

ENG 

----— .—..*------- --- 

GBP,X3+CN3LK 
*+2 

t , , .. .... tj -f-% A « */> 

SAVE JOB NUMBER 

fk'AU fTT UAI ‘“ftriC 



o. 

0 12317- 

01233 

_._..01234. 

Q1uu1.j34 

01001234 

41300004 

P 

P 

1045+011 

1035+012 

1035+013 


UJP 

UJP 

STG. 

M'PAUK 

*+i 

C PPiX3+CN3LK 

Now uET.VAL.LOOt.•. 

(SLIGHTLY FASTER THAN A NOP.) 

.SAVE VALIOIJY.CODE____ 




0123 5 

G 12 3 5 
1470 Q QUO 

■Q 

... TOW". 

1037 

10 87+0 01-.-.. 

OGDEXT 

EGU 

-E-N-Q—.- 

¥■ 

. .o__------__ 

BY GCD, I THINK WE HAVE DONE IT. 

.SAY.REG U L AR-Q U£ UE.AT.FIR ST. 



O " 

01236 

01237 

20300000 

03001252 

R 

1057+002 
1087+003 


LBS 

AZJ,EQ 

_.*?• it s , . s w 

ACOMORO,X3+CNBLK 
REGG 

GET QUEUE DESTINATION 

JUMP IF NCI SPECIFIED 



o ^ 

01240 

01241 

01242 

141//7/7 
14 577 777 
06277777 

X 

X 

10 a 7 + li 0 4 

IQS 7+00 5 
1087+006 

SENDTlP 

SEN0L00P 

S ENDTA6P 

c NI 

ENQ, S 
MEQ 

S 0 T A B L j X1 

777773 

S ENOTAB, 2 

l.£l r* o TH OF SnuNDTAb! 

MASK FOR SEARCH 

LOOK FOR THIS QUEUE 




--01243'~'“ 

01244 

01245 

0100X252 
21X77 777 
12400011 

p...■— 

X 

. 1097 + 007' ‘ 

1087+0 0 8 

1 o s /+ 0 0 s. 


TUP.. 

LOG 
_ SH.Q_ 

pf-gg-g- -.. 

S£NDTABi,Xi 

....._g_____ 

..NOT FOUND — USE NORMAL QUEUE 

SEE IF THIS IS A NAME OF A QUEUE 
......... HARDWARE 'TYPE TC LOWER 9 



O " 

01246 

01247 

17700017 

0 4 70 0 0 1.3 


1087+010 
1067+011 


ANQ 

USE 

HTMASK 

HTTASK 

KEEP HARDWARE TYPE ONLY 

SKIP IF A BATCH QUEUE NAME 

• iT n i/ w r a r - , . , 



Q ? _ 

u 1. 

01251 

010012 41 ■ 
21101244 
01252 

... ......... 

“r~ *—- 

X 

_P_..■_ 

' X 0'5 f + tit 1 C "" 

1067+013 

1087+014 

REG Q 

' tlu P 

LOG 

EGU 

O- Pi 0 -I— ii O P 

SEND!AB1,XI 
¥ 

LUuK HuAiN 

QUEUE INTO G ' 




.. 0X252 . 

01253 
0125 4 

'2a'3rOT06“ 
535C 0G00 
14477776 


--- ir-'fY'.©"''®--—--—”” 

I li © Q ■ 

1 0 o 0 

1093+001 . 


XSJA “ 

TAI 

ENAiS . 

EPPf X3-+CNBCK 

CBI 

~ 1 

. GET ADJUSTED CBI BACK 

BACK TC XI 



d 1 ” 

01255 

01256 

40300005 

2010DQ.il 


1090+002 

1090+003 

l r*, fi ft x. fl D i. 


STA 

LOA 

8LKR*X3+CN8LK 

0 BLOCK, CBI 

SET BLOCKS REMAINING TO -1 

GET CURRENT BLOCK 



10 

o, 

" u 1 cb f 

01260 

01261 

'*4 U oti li t: (j jl 

14 60 0 Q 0 0 
40 30 00 07 


10 tr U+u l 4 

1091 

1092 


ENA 

STA 

w i $ X w bNtjtl K 

0 

T FL , X3+CNBLK 

— ANU rlixIN 1 t U x! AK 1 Ur rltt 

BUILD THE CONTROL BLOCK 

LENGTH IS ZERC 



y — 

Q # 

“ . 01262 . 

01263 

01264 

~W10".OOT3 . 

40300002 

53040000 


.. X0“9'3 

10 94 

: 109 4+0.61 . 


SWA .. 

STA 

AQ A 

.pSAL'oc',cei.■. 

COREP, X3+CN8LK 

. MO A' S S'O C I'ATE D P'S A.. r“” 

BLOCK IS NOT IN CORE 

SHAQ 24 AND REMOVE -0 



O. 

7 

0126 5 
01266 
0126 7 * 

05600001 
20100022 
'5360 0 0 00 


1094+002 
10 94+ 0 Q 3 
. X'0'94+004 - 


ASG 

LD A 

TAI 

1 

B ATC HPNT,CBI 

.X2.......“ 

SKIP IF NOT NORMAL QUEUE 

GET POINTER TC NORMAL QUEUE 
..QUEUE.POINTER.TO.X2.-.. 




o. 

01270 

01271 

53300000 

40300000 


1094+005 

10 9 4+ 0 G 6 

TIA 

STA 

X 3+CNBLK 

ACCWORD,X3+CNBLK 

POINT CNBLK TC ITSELF 



. 01272 . 

0127 3 
01274 

''XIWOOO'O. 

05500000 

35001172 

X 

. 1094+0 0 7 ...... 

1094+008 

1094+009 

..00071. 

QSG,S 

SSA 

. ■ . 0 ,X2 ...... 

0 

8IT2 3 . 

.. GET LAST . ELEMENT . OF . QUEUE .... 

SKIP IT IT WAS A CARD READER 
.SET TASK.BIT...... 


0“.. 

01275 

01276 

35077777 

40600000 

X 

1094+010 

1094+011 

SSA 

STA, I 

8 IT 17 

0 ,X2 

SET INDIRECT BIT 

LINK THIS INT C THE QUEUE 


a. 

■ 01277 

01001144 

p 

1099 

1100 

———ujp 


—PROCESS THE "JOB'CARO 



o 
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HOVE BUFF 


SLOCKING ROUTINE 


******* * ** ********* ****'#¥##*** ¥#+* *** 


* ^ ** ** 


1101+003 * * 

1101 + 0 04 -*--HGETCHR-------- -ROUTINE TO -GET A CHARACTER FROM * 

1101+005 * CARO * 

1101+006 * * 

1101+0 0 7~+——...CALL"WITH RETURN ADDRESS IN A,.X 2 PCI NTS TCPROPER .WORD.. * 

1101+008 * OF CARD, X3 POINTS TO CONTROL BLOCK * 

1101+009 * . _* 

.1101 + 010 * ON RETURNS * 

1101+011 * a IS UNCHANGED * 

1101+0-12 *-A -IS -NEGITIVE IF LETTER,.DIGIT , *,.+-».OR. $ ----* 

1101+013 * XI IS THE CHARACTER IF A NCI POSITIVE * 

1101+014 * * 

- ^ ^ ¥-A-$■-¥■ ***** y. jf. y. if. if. w ¥■*-.* w .$ ** ¥¥ *************** 


0132 3 
01324 
U132 5 

01326. 

01327 

.01330 

01331 


0 51U 0"0'1'2'" 
01700002 
0510 Q 060 

“¥5T0W3F.' 

20 001455 P 

1210 0 - 00-0 . 

01700002 



. fM/sn a.. 

0 1300 

....40 ,30-0 O f) ?- 

P 

1101+017 

.... 11 fi-i + ni ft. 

HGETCHR 

ECU 

.ST A .. 

.PQPFP•yg + ftNBi.K. 

.C A U c.DCTIIDW .AC-D'RP-SS.... 


0 '. 

01301 

01302 

20300005 

15600006 


1101+019 

1101+020 


LD A 

INA 

8LKR,X3+CNBLK 
o 

wr’iwL*. f \ I W f \ $ * M w w i \ w w w 

GET SHIFT POSITION 

FOR NEXT TIME 


O 

u 13 U 3 
01304 
01305 

~Q"3 o U (J U ti'l 

01001314 

15200001 

P 

i 101 + O' 21 
1101+022 
1101+023 


.ASG. 

UJP 

INI 

2 4 + 1 

MGC04 

1 ,X2 

SKIP TC GO TO NEXT WORD 

.IN CREME.NT...WORD POINTER. 



.0130 6. 

01307 
.. 01310 

53200000 
31 30 0 0 07 
.03 301313. 

P* .. 

1IQ 1+0 24 
11G1+025 


riA 

SBA 

-A2J.4.T-. 

X 2 

TFL,X3+CNBLK 
..M GC4 3... 

SEE IF W£ ARE THROUGH WITH CARD 

COMPARE WITH LENGTH OF CARD 
__JUMP.IF.STILL MORE.CARD.-.-.... 


O “ 

01311 

01312 

03101235 

01700002 

P 

1101+027 

1101+028 


..x tel. 

AZJ,NE 
UJP, I 

MUtUU EZt. U 

QCQEXT 

COREP,X3+CNBLK 

JUMP IF SECGN0 CALL PAST CARD 

RETURN 


o . 

.01313. 

01314 

01315 

14 6 0 0 8 '0 6 
40300005 
53500000 


■ 1101 + 029 
1101+030 
1101+031 

"nuG'U'3"' 

MGC04 

ENA 

STA 

TAI 

BLKR,X3+CNBLK 

XI 

SAVE NEW SHIFT 

SHIFT COUNT TC XI 



01316 

01317 

.0132 0. 

20200001 
12 10 0 0 00 
17 60 0 0 77 


1101+032 

1101+033 

_1101+034.. 


.OTA. 

SHA 

..aha.—.— 

.r,'x2 . 

0 ,X1 

..7 73_ 

GET THE WORD 

POSITION CHARACTER 

...KEEP Q N-L¥ . PRO P ER- . CHARACTER-....-..- 


o 

01321 

01322 

53500000 
20001454 

P 

1101+035 

1101+036 


TAI 

LDA 

XI 

CLASWRD1 

CHAR TC XI 

GET BITS FOR 30-57 



x x y x+ uoT~ 
11-01+038 
1101+039 
TI¥I+'04T 
1101+041 
1101+042 
1101+043 


UJP, I COREP,X3+CN8LK 

ISG 603,XI 

.ISC'. 3ff3,Xi ... 

LD A CLASWRD2 

-SH A --0 ,X1--—*--- 

UJP,I COREP,X3+CN8LK 


.SKIP.UN CES S“‘D IG'I T' 

DIGIT RETURN 


GET BITS FOR 12-27 AND 60-77 

-POSITION.ALPHA. BIX-.--- 

RETURN 


o 



































CD 

CD 


O 
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BLOCKING ROUTINE 


*• v--¥ * ¥¥ *>£•*•¥• V-* * + ■**#■ * W * * 


1101 + 046 * 

1104+047 .* 

1101+048 * 
1101+049 * 
1101+060 * 
1101+051 * 
1101+052 * 
1101 + 053 * 
1101+054 


MPACK 


-----.-...ROUTINE.TO PACK.NUMBERS.AND.-.- 

SYMBOLS 

ENTER WITH Q.THE RETURN ADDRESS AND A THE ALPHA BITFORLAST 

CHARACTER FETCHED AND XI THE LAST CHARACTER FETCHED 


RETURNS TO RTN.WITH.NUMBER IN Q OR TO RTN + 1 WITH SYMBOL IN Q 

if jf if if. if if if if if if _ if if if if if f if if if if if if if if if if if Jff if if if if if if if. if if if if if if if if if if if if if if Jf if if if if if if if if if if if if if if if if if if if if if if if if 


O , . 

01332 

01333 

14601334 

01001300 

P 

P 

1101+057 

1101+058 


ENA 

UJP 

MPACK 

MGETCHR 

GET NEXT CHARACTER 


01334 
01335 
.01336. 

03201332 
41300001 
53 1 i'l Q non 

P 

1101+059 

1101+060 

._144i4._+4i.ftj. 

MPACK 

AZJ,GE 

STQ 

TT A 

* 

LP,X3+CNBLK 

Y i . 

JUMP IF LAST CHARACTER SPECIAL 

SAVE RETURN ADDRESS 

.t.m .n acc., nr.nic t t. : ..... 

O 

01337 

01340 

05 10 0 012 
01001373 

P 

JL X O Ji T U vl'JL 
1101+062 
1101+063 


ISG 

UJP 

10. XI 

MPACO 2 

SKIP IF NOT DIGIT 

PACK NUMBER 

o. 

0 lo41 
01342 
01343 

‘14 o 7/70U 
53100000 
12 00 0 0 22 


.1101 + 064. 

1101+065 
11Q1+066 

MPA CLi 

tl N Q * b» 

TIA 

SHA 

7 770 0 o 

XI 

18 

INlTIALIZEG 

CHARACTER TO A 

TOP OF A 


.01344. 

01345 
..04346. 

.TTOFirnw 

03001361 

-4-4-60-4-35-0- 

P 

.p. 

iiui+067 

1101+068 


SHAQ 

AZJ,EQ 

MPACL3 

.¥+2......' 

INTO LOWER G. 

JUMP IF FOURTH CHARACTER 

o 

01347 
0135 0 

01001300 
03 301342 

P 

P 

1101+070 

1101+071 


UJP 

AZJjLT 

MGETCHR 

MPACL1 

JUMP IF ALPHANUMERIC 

o . 

0X351 

01352 

01353 

14 60 u 000 
13 00 0006 
16 70 0 060 


.1101 + 072 

1101+073 
1101+ 07 4 

n P A C u X 

ENA 

SHAQ 

XOQ 

0 , 

6 

0 00 6 0 9 

FOR THE AZJ BELOW 

JUSTIFY 

BLANK FILL 


."QT35A. 

01355 
...0135-6. 

03101351 
14600001 

.3-4-3-0-0-0-04- 

F. 

1101+075 
1101+076 
.1101 + 0 77 

MPACL2 

.A2J7ME. 

ENA 

.....RAO..- 

MFACLX 

1 

.L P. X 3 + C N B L K.—. 

CONTINUE TILL, DONE 

INCREMENT RETURN ADDRESS 

O . 

01357 

01700001 

n 

1101+078 
ll!i 1 + 079 

■ , , 4.-4* A 4.-i,4lvA.TU. 


UJP } I 

L P» X3+CNBLK 

RETURN 

o 

li 1 ob 0 
01361 
01362. 

Uo 201555 
14601360 
01001330 

r 

p 

p 

.liui+uou 

1101+081 

1101+082. 

MPACL3 

■ A Z u i G E 

ENA 

UJP 

M RAUL 2 

MGETCHR 

. JUMk IF NON“AtPhA NUMERIC........ 

GET NEXT CHARACTER 


0136 3 
.Q1364. 

14601365 
.0 400-4300. 

P 

. P. ..... 

110 1 1 + 0 8 3 
1101+084 
.1101 + 0 85 

MPACD1 

-ENA 

.UJP _ 

*+2 

. M .GETXWR.... 

._GE4l.NEXT.DIGIT..-........... 

o 

01365 

01366 

05 10 0012 
03301370 

p 

1101+036 

1101+087 


ISG 

AZJ,LT 

10,Xi 
+ +2 

SKIP IF NOT A DIGIT 

JUMP IF NCT END OF CARD 

o.;. 

U 1 ob / 
01370 
01371 

u i / u ti j u i 
13 00 0030 
5 0 00 0 335 

X 

111) 1+uo o 
1101+089 
1101+090 


tJdP 1 i 

SHAQ 

MU A 

tl'p9""A0":+ ON 

24 

D10 

RET uRtJ... . . 

NUMBER TO A 


.0137 2. 

01373 
.043.7.4. 

5 314Q Q 00 
13 0000-30 
.0100136.3 

JL _____ 

.. 

1101+092 
..11,01 + 093 

MPAC02 

: A I A 

SHAQ 

ILJP __ 

"XT .' “ 

24 

MPACni 

ADD jN DIGIT ~~ ~ ....... 

NUMBER TO Q 

O .. 

o.. 





_____ 



- ------------ 


cr 

10 ® 

o.. 

O s ■ 

cr 

cr 

Q 


O 






































ASSEM8LER/0S3 VI.0 09/24/74 0310 PAGE 28 HOVE8UFF 
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1134 

1135 . 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 . 

1144 

1145 
'*±*±* 4 * 6 *" 
1147 


¥• * 4 4 4 4 44 44 4 4 4-4 44 4 44 44 4 44 44444444 444444444444444444444444 

A - - ' •* 

----HIGH.SPEED-.INPUT ----—-------- -—* 

nr 

* THIS ROUTINE IS USED TO PROCESS HIGH SPEED 6 LOCKED * 

-I«-p-OrT—oeVTC-ES—e-<mN'E'eT'E-0—T-0.THE PDP8.. ——————— . + 

A- 4 

* IT RECEIVES CONTROL FROM IFHNDLR, CHECKS THAT IT IS ... 

* REALLY DATA AND THEN CALLS EITHER.U WE LOCK.OR.UW8L0CK8. * 

* TO ACTUALLY DO THE WORK * 

-*•-IF.THE INFORMATION IS.-NOT-.REALLY.DATA. (CHARACTER---.*- 

* COUNT OF ZERO) IT GENERATES A CALL FOR A FILL CUT * 

* BLOCK (CARD READER INFORMATION) OR A FILE MARK * 

—_ _ t>0‘tWW-EO-BY~ A “prttr-'Otff—B'tO-eK”~C-PA1 a eR' TAPE READER) .__— * 


jyqi if. #, if # Af. if. if & Jf if if if : 





n i its 

01375 
535 n a no o 

p 

.TM. 

1150 

. 1 i qj . 

HSIMP 

EQU 

TAT 

♦ 

C 31 

..r.nfsJ.XR...CJ. M^CC-K ..T Cl. . C FIT.. 

. : ......... 8 

o 

01376 

01377 

20100024 

03277777 

X 

....- . . ■■A.rJk-st-dU, .... 

1152 

1153 


LOA 

AZJ,6E 

E XPO AT A »CBI 

I FEND 

ARE WE EXPECTING ANYTHING 

JUMP IF NOT 

o 

o 

“““""“0ir4Q'0~ 

01401 

01402 

"--5"3 3'0*G"«’0'0*“ 

40100024 

47077777 

X 

. Il54. 

1155 

115 6 


*TTA.. 

ST A 

ST I 

EXPDATA,CBI 

PDP83LK j 0 

SAVE iHE AOCRESS OF THE BLOCK 

SAVE THE 64 WORD BLOCK 

______ t O 


01413 3" 

01404 

01405 

13000013 

17603777 

H 3 fi 0 0 0 on 


' 1157 ' 
1158 

115 9 


SHAQ 

ANA 

tat 

.12-1. 

3 7778 

X 2 

WORD COUNT TO A 

JUST THE COUNT 

..A N D INCF-X— T-W 0- .: ............ 


o 

01406 

01407 

05 40 0 Q 77 
0540 0 0 01 


1160 

11.61 


ASG,S 

ASG » S 

6 2+1 

1 

SKIP IF A DATA BLOCK 

l o 

o 

.01*41 0 

01411 

01412 

0100143 6 
40300001 
5330 000(5 

p 

116 d 

116 3 

1154 


U UP 

STA 

TIA 

“ * NDA TA. 

i*X3 

X 3 

STORE IT INTO THE BLOCK 

.... . o 


01413 

01414. 

15600001 

01414 
5A377777 

p 

Y .. 

.ales.“. 

1166 

.4 i 67- . 

UWi 

'IRA” 

EQU 

.n..x....... 

1 

..T FFXIT. ... 

"FORM’ ’AGGRESS’ OF THE IR GAP WORD 

. LOAD . THE . FXN4L- . RETURN ..-.-..-.—. : . 


o 

01415 

01416 

14701417 

01500026 

p 

s 

116 8 

1169 


END 

UJP, I 

G A8K 

DEVTYPEjCBI 

ENTER THE GCMFLETION RETURN 

GALL THE SLOCKING ROUTINE 

o 

o 

01417 

01420 

01421 

47 2U14l4' 
2Q100026 
03331444 

X . 

p 

11/0 

1171 

11 7 2 

O A 

STS 

LD A 

AZJjLT 

I FtXI1 « X2 

DEVTYPE jCBI 

H SINPFIL 

ARE WE FILLING CUT 

...o 


..0X422. 

0142 3 
0142 4 

20100024 

35001274 

40100024 

X 

ii?3 

1174 

..i i 75. 


LOA 

SSA 

S T A 

EXPDATA^CBI 

SITES 

_p.vpp ATA * CBI - 

SEi THE EXPECTING LATA Eli 


o 

01425 

01426 

14300006 

00700525 

y 

A 

1176 

117 7 


ENI 

RTJ 

6,X3 

FREEHEM 

FREE THE 64 WORD SLOCK 

o 

o 

0 14 C7 
0143 0 
01431 

20100025 
17607777 
53 50 O'0 00 


11. ( 3 

117 9 

11 S3 


LOA 

ANA 

TAI 

COMWORDjCBI . 

77778 

XI 

SAVE 12 BITS 

.'.o 


.; wmmr 

. 01!J7777? 

q 3 3 

X 

. P .. 

1181 
■ 118 2 

1 i Pi 3 

' MMJ4 ... 

UUP 

Pfli.L . 

POP 8 C!£TX 

4- 



o ~ 

01433 

01434 

04400000 
00001434 

P 

1184 

116 5 

. : L- ^. . .... . . 

AS E , S 

HIT 

0 

if 

BAD WORD COUNT (GO TO IFEND) 

o 

o.. 

U1435 

01436 

01437 

2 0 tu 0 0 <l.o 

04-6006 7 3 
01001446 

P 

P . 

..*. 1.1 8 b *. 

11,87 

118 8 


w'j A 

ASE 

...ujp._ 

DtVTYPEjfjdl 

UW3L0CK 

NDATA02 

IS THIS A CARO HEADER DEVICE 

SKIP IF NOT 

.... • Q 


' .01440. 

01441 

0 1 44 ? 

.35 Q01423 

40 10 00 26 

1 4 6fl 1 440 

X 

X 

..1189.. 

1190 ' 

1191 


SSA 

.STA 

FNA 

.“ -gr J j-g J- . ..-. 

DEVTYPE)GBI 
. BTT23 ..—- 

REMEMBER THE FILL GUT 

..PUT A FILE MARK IN . THE . F-ILE .... 


0'~~ . 

01443 

01001414 

p 

1192 

1193 

i o -r \ r u “T-. ± _ _ 

.... . . . .. 

UJP 

,, L. 1, , , vv/ 4 .J. w ... 

UWI 

-—--...._ _ _________ 


o 

% 0 

o _ 

01444 

01445 

01.444 
37000753 
40100026 

X 

1194 

1195 

1196 

H S X Mrr±L 

IP A 

STA 

MBIT23 

DEVTYPE,CBI 

CLEAR THE FILL CUT BIT 

..... ; .o 


01446 

01447 

. 01446“ 

14601076 

01001414 

.p... 

X' 

p 

1197 

1198 

.1199. 

.WATA0“2. 

'EQU. 

ENA 

.Ujp.____ 

’“T".................. 

KZERO 

uwi 

SAY TO FREE THE FILE CORE BLOCK 


cr... 

7 

O . _1 

01450 

01451 

0440 0 00 0 
17434627 


1200 

1201 

——±2*0 2 

1203 

1204 

OESROCR 

LOGOFF 

VFU 

BCD 

0 5/2,A4/HTCR,A15/0 
.2,[LOGOFF _ . 

OESTRUCTIVE READ AND CARO READER 

o 

...:.. o 

p ■ 

.~.G 1453. 

01454 

01455 

41 46 2 2 76 
60 077734 
17740177 


...1204 + 001. 

1204+002 

1204+003 

JOB .. 

CLASWRD1 

CLASWRD2 

BCD ~ 

OCT 

OCT .- 

i J vJ 0 8 f 

60077734 

„ 1 774 0 177 ....~ 



o 5 w 

01456 

00000000 


1207 

1206 

.. a on .c - 

IMPUREO 4 

VFD 

A 24/IMPURE 

. END OF PURE REGION 04 

. : o 

n 
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.~~. ...***--... 1211 . 

1212 

.0145 7. 0-1-00 0 000. .1213..UNLINK.-.UUP.-. 

U146 0 2 0 10 0 0 0 C 1214 LDA 

01461 03001457 P 1215 AZJ,EQ 

.-.0146 2. 53 70 0 000 —.. . 12x6.——— 

01463 20100023 1216+001 LDA 

01464 4430000b 1216+002 SWA 

'.01465.20 10 0013. .~ :.1219.. IDA 

01466 53700000 1220 TAI 

..0146 7 .14 40 0 757- X .-.....-.1221----ENA,S. 

01470 04300000 1222 ISE 

01471 00700761 X 1223 RTJ 

0147 2 010 01457 P ' ______ 

1225 

1226 

.0147 3. 25 45 2460. . . . 122 7..END NESS' BCD, C 

01474 P 1228 FORM EQU 

----04-4-7-6- P ..1229.. END ID ENT E-QU—- - 

1230 

01477 77512521 1231 RDYMESS 8CD,C 

.06404 P .-.- 1232..ROYNESID EQU,-C-~ 

00014 1233 RDYMESL EQU,C 

1234 END 


NO LINES WITH ERRORS 


BLOCKING ROUTINE 



IMPURE .—.———UNLINK.-THE.CONTROL.BLOCK FROM THE..-.-.-.— ©- 

CON-BLOCK, C3I MACRO CD 

UNLINK EXIT IF NO CONTROL CLOCK 

X 3+C NBtK”-— — -- __— - ,—.» 

DESTLP,CBI GET DESTINATION LP ^ 

EPP,X3+CN8LK PUT DESTINATION CODE INTO CN8LK 0 

PSALOC, C3I.. . ..- DOES.THE FILE BELONG TO A RUNNING.."..*...■.." 

X3+PSA USER 

0 , X3 + PSA SKIP IF NC USER PRESENT O 

IOCLEAR 

U N LI NIC™*- ; -—----------- ~ - - - - . 


, Cl 

TT,TND.FORMS XXXXa . “ .. ‘. .....”..... : ..’* 

ENDMESS+1 

ENOMESS + 3.--..—.-.--------.-.-.-...—.o ~ 

o 

12,READY ABCDa 

R D Y M E S S*+ 7 - — ..*— •- 

*-RDYMESS 

__:_____:_____:_(U 



o 

Q 

o 

O 



o 
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MOVE BUFF 



. a 

1035+4 

01223P 

10 87 + 2 

012 3 6 F 

1094+6 

0127 IP 




27 0 

0 0 0 44 P 

279 

0 0 0 5 7 F 

415 

00265P 

453 

00357P 

‘'Q 

. 459 

775 

911 

0 0372P 

0 0677P 
01061P 

4 64 
793 

0 0 3 7 6 P 

0 0717 F 

798 

00722P 

860 

01011P 

.. c 3 


527+24 
475 + 1 

005IIP 

0 0414P 

527+42 

634 

0 05 3 3 P 
00617P 

632 

652 

0 0 615 P 
00636P 

650 

00634P 

o 

318 + 2 
507 

00104P 

0 0443P 

527+28 

Q0515P 

629 

0Q612P 

659 

00644P 

._ 8 o 

.977 

1191 

GT142P" 
S1442P 
.n 06 5-B P. 

.990. 

.0lT5’3P. 

1006+2 

01172P 

1094+9 

01274P 

.6 









O 

O i 

. H 82 

809 

1090+2 

0 C 4 2 3 F 

0 0 7 3 4 P 

0 1 25.5 P. 

”..“.517 ' 

816 

_.ililt.19. 

0 045 2 P 
00742P 
.Q.13J1F. 

902 

.1101+3.0. 

01051P 
01314P_ 



_ tO 


445 QC316P 446 Q0317P 446+6 QQ323P 446+7 00324P 

”660"' 0 0645P ..661 0 064 6P 


77J . .-jj-ggygp .—.775".0 067 7F.’. TTS .00701F.78100704? 

790 Q0715P 791 00716P 793 00717P 797 00721P 

- -&OS—<Wi*3£R - -6-09 GQ734F..816 0 0 742R.- 818 00744P 

823 00754P 329 Q0755P 834 00762P 836 00764P 

846 C0773P 847 0G774F 872 01021P 878 01027P 

- 884 01034P 885 Gl035P 892 Q1042P 893 01043P 

907 01056P 911 0.1061F 913 01363P 919 01067P 

933 01102P 934 G11Q3P 933 U1104P 949 0112OP 

’3TEPT BTT47P.. £ IF.9 9 B' Cl 162P .10 06 + 1.Oil 71P 

1017 01202P 1021 01203P 1026 01206P 1090 01253P 

4JJj34±3-fl-ta&6£- 1151 0137 6 F ..-11 52. 01-37-6P- . 1155 . 01401P 

1173 01422P 1175 01424P 1173 01427P 1186 01435P 

1214 01460P 1216+1 01463P 1219 01465P . 

- 8 - 9 *r- fr tO'8- 3 P-1-0-9-6+-3- “01256.P ... 


t 

o 

o 

o 

o 


u 


527+10 00475? 527+17 00502P 527+21 00506P 527+23 00510P (J 

875 01024F 876 01Q25P 1024 01205P 1030 01212P 

'1033+1'01216P.1035+4 C12Z3P 1035+9 Q123QP 1U35+13 01234P 

1090+2 01255P 1090 + 4 G12S7P 1092 01261P 1094 01263P ,~ s 

1101 + 18 Q13Q0P 1101 + 19 013 GIF 1101 + 25 01307P 1101+28 01312P Q 

TXTIT+Synrr3r3^ ”'-"rifli*60 01335P 1101+77 0135 6P . 1101+78 01357P . 

1216+2 G1464P 


933 01102P 984 01147P 1017 01202P 1214 01460P 

. 812- 00737F.843' 0077QP. 852 01001P' ' ' 9 05 01054 P. . 

1101+18 013Q0P 1101+28 01312F 1101+38 01324P 1101+43 01331P _ 

335 00127P 345 0G140P 382 00224P U 


o 


36Q + 8 0 0167 P 402 + 1 00237P 403+1 00244P 403 + 6 00251P 

472+1 00406P 527+60 00554P O 

1171 01420P .1186 01435P.‘ 119 0 0144 IP .1196 01445P. 

.771 0 0 6X4 P...- ........-..._. - 

824 00751P 828 00754P 845 00772P 846 00773P Q 


411 00261P 412 00262P 490 GQ433P 


o 
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EMDIDENT 
ENDMESS 
.EMIT.. 



G1476P 
01473P 
.0 0 01 2. 

1229 
122 7 

...2 8. 

423 
1228 
..35 

0 0 2 74 P 
01477P 
.0 0 0-0 0 P. 

1229 

.23 8. 

014 77 P 

00 0 10 P. 

427 

.276 + 2. 

0 0 3 0 0 P 

00052P. 

0 0402P 
00544P 

.318 + 3 

475+2 

0 01 0 5P 

446+4 

0Q321P 

448 + 2 
527 + 2 

0 0 351P 


a 







44 £+3 
527+3 

00352P 

00467P 

449 

527+41 

00 3 53 P 

00 5 32 P 

469 

527+52 

Q0415P 

475+3 

00416P 

00466P 


1 Q . 


tPP. 

EXITADD 



0 0 0 0 6 

0 0 01 5 

90 

123 

527+25 
124 
878 

0 0 510 P 

0 0 666 P 
01027P 

10 2 4 
774 

01205 P 

0 0 6 76 P 

1088 

791 

01252P 
00716P 

1216+2 

834 

01464F 
00762P 

862 

01013P 

864 

01Q15P 

.,0 



EXPDATA. 

F 8 



00 0 24 
0U00 0 

137 

11 

140 

12 

. f, p 5 

0 0 6 66 P 

0 00 00 P 

0 0 5 0 7 P- - 

1152 

405 

01376P 

00 2 53 P 

1155 
47 3 

01401P 

0 0411P 

1173 

485 

01422P 

00426F 

1175 

527+53 

01424P 

00545P 

527+58 

00552P 

.. 0 . 

1 O 


FI LEM 
FILEX 



00227? 

0C304P 

385 

434 

284 

388 

00064P 

0 0 2 31P 











G 

o. 


F 1L c X A 

FILLOUT 

FINK 


X 

0 U26 / P 

010 51P 

41 l 

901 

47 

413 

803 

489 

0 0 2 6 3 P 
00727P 

0 04 32 P 











. nO 



FINKPi 
FIRE 

FIRFP1.- 


X 

X 

x 


48 

49 

.so. 

49 3 
863 

.§5 7 

0 0 4 3 6 P 
01014P 

.0107 0 P 












o 


FLWD “ 
FLWOA 



0037 IP 

0 0 3 5 0 P 

458 

448 

466 

476 

0 0 4 0 0 P 
QQ417P 











O 

., 0 i 

o 


r MARK 
FORM 

FORMFLAG 


X 

ul (1 / . 

01474P 

9 9 

122 8 
51 

■...975. 

361 

321 

01140 P 
002Q2P 
00112P 











. .0 



FORMREC. 

FORMSWRD 



.OMIE. 

00 01 6 

95 

40 

.292. 

240 

.:.35Q 

0 00 7 4P. 

00012P 

0 0-1-45 P. 

2%2 

... 4 1 

00014P 

0 02 67P. 

256 
..42-1 

0 0 0 3 0 P 

- nQ272 p . 

259 

.g. 2 - 8 - 

00033P 
.0-0-61 IP. 

328 
. 6 49 

Q0121P 

0-Q-6-3-3 P 

331 
.6-56. 

00124P 

0 0 641P. 


o 

'b 

FREE 8 LK 


X 


52 

669 

0Q654P 

672 

0 0 6 56 P 

6 77 

00662P 







0 

o 


■I- REEK I Lt" 

FREEMEN 

GBIW 


.X 

X 

00765P 

■ " 5 3 
54 
838 

% 0 2 + 3 
40 3 + 4 
814 

00243k 

0 0 247P 

0 0741P 

527+36 

005 25 P 

1177 

01426P 







.. . 0 



GBLN. 

G SNOW 
.GFT 8 LK. 


„.x. 

00770P 

0 07i7P 

.842 ” 

792 

....55_, 

....9W 

787 

..-851- 

■QTffB'trp'.* 

00712P 
01-0 00 P . 












o 


GET3UFF 

GETMEM 


X 


56 

57 

269 

5 27+8 

00043P 

00474P 

766 

1016 

00711P 
01201P 









0 

o _. 


b h 1 /i 0 r\ U 

GIVBUFF 

GIVBUFFA 


X 

„x . 

0 U 6f hr ' 

..—if 

58 

59 

. 2 BL 

8 86 
416 

0 00 b2 P 

010 4 0 P 
00266P 

" ' ' 320' 

0 y 111 r 

' *....3+0.. 

0 013 7 P. 







. 0 



.HUNT.... 

HSINP.. 

.E . 


.SG'3’0.2. 

. Q.1375P..-iii 

■ . w 

.115..Q.. 

232 

908 

. ...... „ l.g. 

T0W3P 

010 57 P 

0 Q-0.Q.Q P- 


W3BTF. 

..455.. 

"'F0B7¥F~. 

. ~WTZW5' 

TWiffF. 

.751T 

BG703P ' 

. 8 97 

QTG47P 


o 5 


HSINPFIL 

HTCR 



01444P 
0000 % 

1194 

20 6 
Of, r 

1172 
12 03 

91421 P 
01450? 











0 

o 

if 

ri 1 r 1 L L 

HTLP 

HTMASK 



u d y u X 
00002 
00017 

£ U 
206 
219 

1087+10 

12 4 £P 











___. 0 


. ^ . 

HTMAX'.~ 

HTMSF 
.HINT..-._ 



.OTQTS.. 

00G14 
. 00 005. 

2 TET 
216 
.2.0.9 














o ; 

.-i. 

>f 

HTNULL 

HTPLOT 

H TRIP 
HTPUN 

HI RAF 



0 0 0 i 0 

0 0007 
00015 ■ - 
00003 

00 01 2 

9i p 

W» cdW w®sa 

211 

— Bl-7 ■ 
207 
214 


——————— 

_____ 










“. 0 

0 

t d . 


.HTTASK . 

HTTTY 
.HTTV ._ 



.U3TTJT3.*. 

0 0 0 0 6 
. 00 0 1 1 . 

..215. 

210 

._..2.1.3.. 

.108T+I1 

.0124TP. 












O’ . 

| , 


HWBUF 

IADR 

T HCMT 



0 0 7 2 0 P 

0 0 0 0 0 P 

795 

227 

„ . . 1. Ci 

. 775 ~ 

26 7 

ir r. 

GG7G0.P*. 

0 00 41 P 

O L Q 

n r» q *6 

,2 CL h * * 

.n-.'n..o. fl-C-Q.. 

„ .. 






0 

1 o„ 


X L/C. IN i ■ 

IFENO 

IFEXIT 


X 

X 

tl t* J x i 

60 

61 

9 u 
11 b c? 

1167 

"tl U otj tr r 

01377P 

01414 P 

^ H 

1170 

0 l u c 0 r 

01417P 

■O O' T 

u U C . 


tr tl c / o r ' 





. 0 

1 

i 

. ft .. 


.I MAO.“... 

IMADR 

.JLMQ.fi. 



OG'OflS 
0000 3 
_.O.O..OJ_3P._ 

. 22 

112 

...2.31 

2 4 
113 
__?71 

. 020 . 0 'Q'F"'. 

0 0666F 

0 Q045P _ 

S39 

770 

GUTS'S P. 

006 73 P 

359 

778 

goubp. 

00701P 

374 
8 00 

.0 0217P.. 

00724P 






1 Q' 

: 

O .. 


IMPURE 

IMPURE04 

INHIBIT 

10BUSY 
IOCLEAR 

E 

.X 

X 

X 

00 0 0 0 
01456P 

77 
120 7 

. *6 2 “ 

63 

6 4 

1207 

19 

“——57*1“ 

407 

833 

01456 P 
OOOOOP 
00562P 

0 0255P 

0 0761P 

1213 

1223 

01457P 

014 71P _ 





_____ 

______ 

_____ 


.‘ 0 

. G 

a 


IWADR. 

IXTST 

JOB.:. 



0 0 66 6 P 
00126P 
014 5-3 P 

.“..762. 

334 

120 4+1 

T8 - 4 
346 
993 + 1 

00707 P. 

0 0 .141 P 

01157 P 












O . 


KILL 

KILLFLAG 

E 


00 60 OP 

0 0 0 0 7 

618 

25 

20 

26 

m**™*,**, , Q , O - > 

OOOOOP 

OOOOOP 

- n- r.-o.-i o-.-D.v--,-.--,.. 

323 

„„..„„ ,.,tZ .-L, "2... - 

0 0114 P 

386 

0 0 2 2 7 P 

511 

00446F 

631 

00614P 



O 

r\ 


tsi LLX I 

KZERO 


X 

u u co{r 

HU £1+1 

65 

O' 0 0+ X 

927 

U VCOC r 

010 7 6 P 

O X 0 

1198 

U u + D u r 

014 46 P 











o 


o 


o 















































1101 + 60.01335P.1101 + 77.01356P.. 1101+78 01357P 


1101+8801367P 


1101 + 82 01362 P 1101+ 85 013 6 4P 


10 35 + 11 01232P 1101 + 57 01332F 


481 00422P 
332.0 012 5 P 


377 00222P _429 00302P 


-284- 00060P.— 3 56 041-5-34..4-36 0 08 0 5P.451 043554- 

796 0072OP 799 00723F 823 00750P 858 01007P 

914 Q1064P 

”79 6—0473 0 P ~ 8-91~Q14'41P 

822 0G747P 857 O10O6F 892 01Q42P 913 01063P 

436 00305P 454 Q0360P 475 Q0413P 799 00723P 

494.01O44P.~.914. OTOWP ... 

278 0 0O56P 355 00152P 435 00304P 452 00356P 

518.04 4-5-3 P-----.-.-.-.-.-.-. 


318+4 00106P 327 0012QP 336 QQ130P 338 00132P 
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